>>>>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() >>>>>>>>