急!!!!!!!!!!!111111111
hhfh 2001-11-29 05:27:22 我想MSFlexGrid1的的第7列得到焦点后,MSFlexGrid1.text等于第4列乘以第6列的值!
我的代码如下,就是不能实现这个功能!请帮我解决一下!
Private Sub MSFlexGrid1_GotFocus()
If MSFlexGrid1.MouseRow > 0 And MSFlexGrid1.Row > 0 Then
Do While MSFlexGrid2.Col = 7
mrow = MSFlexGrid1.MouseRow
MSFlexGrid2.Row = mrow
MSFlexGrid2.Col = 4
M_qty = MSFlexGrid2.Text
MSFlexGrid2.Col = 6
M_uprice = MSFlexGrid2.Text
MSFlexGrid2.Col = 7
MSFlexGrid2.Text = Str(Val(M_qty) * Val(M_uprice))
Loop
End If
End Sub