- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]文本框内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104326)
-- 发布时间：2017/7/27 14:21:00
-- [求助]文本框内容
此主题相关图片如下：3.png
此主题相关图片如下：2.png
第一个事件：
1、如何实现把文本框2的内容回车后到文本框3里，如图1到图2
2、如果上一步实现了，如何又把文本框3里的内容，插入表中如图3
此主题相关图片如下：1.png
-- 发布时间：2017/7/27 14:41:00
--
做个具体的foxtable例子发上来。
-- 发布时间：2017/7/27 14:43:00
--
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
[此贴子已经被作者于2017/7/27 14:42:59编辑过]
-- 发布时间：2017/7/27 14:44:00
--
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
-- 发布时间：2017/7/27 14:54:00
--
原来做的是这样，只能增加一条单的记录
Dim nr As Row = Tables("kmbn104").addnew
nr("箱号") = e.Form.Controls("TextBox3").Value
nr("消费单据号") = "00000001"
nr("项目编号") = "001"
nr("项目名称") = "男宾净桑"
nr("数量") = "1"
nr("金额") = "108"
nr("单位") = "位"
nr("单价") = "108"
nr("消费时间") =Date.Now
nr("录入工号") = user.name
nr("录入姓名") = user.name
-- 发布时间：2017/7/27 14:55:00
--
但老师你做的这个会多一行空的，可是“，”的问题，如图
此主题相关图片如下：6.png
-- 发布时间：2017/7/27 14:56:00
--
输入的结果是这样
此主题相关图片如下：7.png
-- 发布时间：2017/7/27 16:14:00
--
回复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
-- 发布时间：2017/7/27 16:27:00
--
完美
此主题相关图片如下：8.png
此主题相关图片如下：9.png