急！！！！！！！！！！！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

...全文

52 4 打赏收藏举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

hhfh 2001-12-01

打赏
举报

救救我吧！！
我想MSFlexGrid2的的第7列得到焦点后，MSFlexGrid1.text等于第4列乘以第6列的值!
我的代码如下，就是不能实现这个功能！请帮我解决一下！
Private Sub MSFlexGrid2_GotFocus()
If MSFlexGrid1.MouseRow > 0 And MSFlexGrid1.Row > 0 Then
Do While MSFlexGrid2.Col = 7
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

hhfh 2001-11-30