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