急!!!!!!!!!!!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
...全文
60 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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事件

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧