以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]点击当前行值赋给文本框后，如何把文本框的值新增到表中  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124143)
--  作者：lunengcheng
--  发布时间：2018/8/31 11:05:00
--  [求助]点击当前行值赋给文本框后，如何把文本框的值新增到表中
各位伙伴，之前求助了一个问题，《在鼠标点击表中的行时，怎样把行对应的值显示在文本框》，然后有点甜版主给出了下面的代码：

currentChanged事件
 
If e.table.current isnot nothing AndAlso forms("窗口1").Opened Then
    Forms("窗口1").Controls("TextBox1").Text = e.table.current("第一列")
    Forms("窗口1").Controls("TextBox2").Text = e.table.current("第二列")
    Forms("窗口1").Controls("TextBox3").Text = e.table.current("第三列")
End If

实现了功能，但是发现了一个新的问题，就是无法把当前文本框的值新增到表中，弄了好久，没解决，希望版主或者高手们解答一下，多谢了！
--  作者：有点甜
--  发布时间：2018/8/31 11:19:00
--  

1、你为什么要用代码，为什么不直接绑定表列？

 

2、如果要给表赋值，做一个按钮，写代码如

 

Dim nr = tables("表A").Addnew

nr("第一列") = Forms("窗口1").Controls("TextBox1").Text

nr("第二列") = Forms("窗口1").Controls("TextBox2").Text