表事件Keydownedit中被编辑单元格不能显示计算出的值 Post By:2013/4/26 21:21:00 [只看该作者]
表事件Keydownedit中:
If e.Col.Name = "保留金" AndAlso e.Control = True AndAlso e.KeyCode = Keys.W Then Dim s As Double=0 Dim blv As Double=0.5 Dim n As Double=100 Dim r As Row=e.Row
s=Int(n*blv*100)/100
’e.SelectedText=s ‘(这行代码取消)
e.Cancel = True '且取消此次按键 r("保留金")=s r("扣质量保证金")=s End if End If