嗯嗯~ 我放Click里面就不会一直弹出来
然后我是想 弹出窗口上下选择 把选中那一行的ID值 赋值给 存款表里面的ID列
代码是写在keyDownEdit 里面 代码如下:
If Forms("选择存款会员").Opened Then
Dim t As Table = Tables("社员基本信息")
If e.keycode = keys.Down
t.position = t.Position +1
e.Cancel = True
ElseIf e.keycode = keys.up
t.position = t.Position -1
e.Cancel = True
ElseIf e.Keycode = keys.Enter
Tables("存款表").Current("社员ID")=e.Row("社员ID")
Forms("选择存款会员").close()
End If
End If
为什么敲回车赋值不成功呢??代码有误?
此主题相关图片如下:9.png