主题：备注列的问题？

Dim str As String = Tables("表A").Current("备注")
str &= iif(str > "", vbcrlf & vbcrlf, "")
str &= e.Form.Controls("TextBox3").text & vbcrlf
str &= e.Form.Controls("TextBox2").Text
Tables("表A").Current("备注") = str

放弃编辑，直接把窗口关闭就好。

Dim str As String = ""
str = e.Form.Controls("TextBox2").text & vbcrlf
str &= e.Form.Controls("TextBox3").Text & vbcrlf & vbcrlf
Tables("表A").Current("备注") = str & Tables("表A").Current("备注") 

e.Form.Controls("TextBox2").Select

 去编写Keydown事件

 

http://www.foxtable.com/help/topics/0741.htm

 

 自己去学着看一看帮助文档。你最基础的代码还不会写。

14楼就是啊，去编写keydown事件啊。

 If e.Control = True AndAlso e.KeyCode = keys.enter Then
    e.cancel = True
    msgbox("按下了ctrl+Enter")
ElseIf e.KeyCode = Keys.Escape Then
    e.cancel = True
    msgbox("按下了Esc")
End If

 汗

 

http://www.foxtable.com/help/topics/2309.htm