急!!!!!!!!!!!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
  • 打赏
  • 举报
回复
怎没人回答
acev 2001-11-29
  • 打赏
  • 举报
回复
关注!
fraser01 2001-11-29
  • 打赏
  • 举报
回复
用rowcolChange事件
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-11-29 05:27
社区公告
暂无公告