Private Sub vsfg_ChangeEdit()
If vsfg.Row > 0 And vsfg.Col = 6 Then
Dim aaa As String
aaa= vsfg.TextMatrix(vsfg.Row, 6)
End If
End SubFired after the text in the editor has changed.
ChangeEdit发生在has changed,为什么aaa的值是发生事件之前的如果设断点Private Sub vsfg_ChangeEdit,则aaa就是发生之后的这列为ComboList,我就是想取得选取之后的值,并且根据其值在此时做其它动作,不能是AfterEdit时发生
If vsfg.Row > 0 And vsfg.Col = 6 Then
Dim aaa As String
aaa= vsfg.TextMatrix(vsfg.Row, 6)
End If
End SubFired after the text in the editor has changed.
ChangeEdit发生在has changed,为什么aaa的值是发生事件之前的如果设断点Private Sub vsfg_ChangeEdit,则aaa就是发生之后的这列为ComboList,我就是想取得选取之后的值,并且根据其值在此时做其它动作,不能是AfterEdit时发生
解决方案 »
- 大家好,能否给一个LOADIMAGE 和LOADBITMAP的实例?谢谢了!
- 我做了个计算器,有点问题,请大虾们帮一下,谢谢
- 我是學Delphi還是學VB.NET呢?
- 菜鸟求助:VB如何编写文本批量替换?
- listview排序(在线等...)
- 关于recordset对象的bookmark属性求救!!
- 请问keybd_event一次完整的模击键如何写?比如我要按1键
- TreeView控件的问题
- 用vb编写访问文件服务器的工具
- 怎样在Listview上添小图标,就像资源管理器右边窗口一样(注:我用的是Report方式)
- 请问哪位知道,怎样在VB中获取系统的字体编码,谢谢!
- 请问vb里面的能实现像asp的execute的功能的语句或函数是?
用这个属性:TextEdit
lcount = .Rows
If lcount > 0 Then
For i = 1 To lcount - 1
icost = CDbl(Val(.TextMatrix(i, 5)) * Val(.TextMatrix(i, 15)))
icosts = icosts + icost
scost = CDbl(Val(.TextMatrix(i, 5)) * Val(.TextMatrix(i, 7)))
scosts = scosts + scost
Next i
End If
End With给参数都不行