>>>LPARAMETERS nColIndex >>> >>> thisform.text4.value=thisform.grid1.column2.text1.value >>> select mac1 >>> locate for nam=upper(alltrim(thisform.text4.value)) >>> thisform.text2.value=mac1.dvno >>> select temp >>>thisform.grid2.visible=.t. >>>thisform.Grid2.RecordSource=SPACE(0) >>>select nam,macwork1 from mac1; >>> where dvno = thisform.text2.Value ; >>> into cursor crsMyCursor >>>thisform.Grid2.RecordSource="crsMyCursor" >>> >>>UPDATE temp set sum1=d1+d2+d3+d4+d5+d6+d7+d8+d9+d10,; >>> sum2=d11+d22+d33+d44+d55+d66+d77+d88+d99,; >>> sum3=iif(d1+d2+d3+d4+d5+d6+d7+d8+d9+d10=0 or d1+d2+d3+d4+d5+d6+d7+d8+d9+d10=0,0,(sum2/sum1)*100) >>>thisform.grid1.refresh() >>>>>>