主题：[求助]文本框内容

此主题相关图片如下：3.png


此主题相关图片如下：2.png

第一个事件：

做个具体的foxtable例子发上来。

1、keydown事件

 

If e.keycode = 13 Then

    Dim txt3 = e.form.controls("Textbox3")   

    txt3.text = (txt3.text & "," & e.Sender.Text).Trim()

    e.Cancel = true

End If

2、做个按钮

 

Dim txt3 = e.form.controls("Textbox3")
For Each s As String In txt3.text.split(",")
    Dim nr As Row = Tables("表A").AddNew
    nr("第一列") = s
Next

但老师你做的这个会多一行空的，可是“，”的问题，如图

输入的结果是这样

回复7楼，改一下

 

If e.keycode = 13 Then

    Dim txt3 = e.form.controls("Textbox3")   

    txt3.text = (txt3.text & "," & e.Sender.Text).Trim(",")

    e.Cancel = true

End If