以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]窗口控件不绑定表如何输入到表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80798)

--  作者:yaorxin
--  发布时间:2016/2/1 21:12:00
--  [求助]窗口控件不绑定表如何输入到表

[求助]窗口控件不绑定表如何输入到表

我现在是绑定的,但是有问题,绑定的话点下面表的数据会显示在上面,用清除还不能清空。

应该用什么代码来不绑定,输入内容后加车自动输入到下表中对应的列中,

请帮给些提示。谢谢

 


图片点击可在新窗口打开查看此主题相关图片如下:22.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2016/2/1 21:19:00
--  

那就不绑定,直接赋值即可

 

Dim nr As Row = Tables("表A").AddNew

nr("第一列") = e.Form.Controls("TextBox1").Text

nr("第二列") = e.Form.Controls("TextBox2").Text


--  作者:yaorxin
--  发布时间:2016/2/2 21:45:00
--  

参考你的代码,我想把datetime和checkbox的也加值,但是出错了。

代码如下,是什么问题?是否要定义才行。

 

Dim nr As Row = Tables("进出单表").current

nr("出单单号") = e.Form.Controls("出单单号").Text
nr("登记出单时间") = e.Form.Controls("登记出单时间").value=now
nr("是否出单") = e.Form.Controls("是否出单").value =True


--  作者:大红袍
--  发布时间:2016/2/2 21:46:00
--  
nr("登记出单时间") = e.Form.Controls("登记出单时间").value
nr("是否出单") = e.Form.Controls("是否出单").Checked
--  作者:yaorxin
--  发布时间:2016/2/2 22:04:00
--  

改为这个OK了,谢谢指导。

 

Dim nr As Row = Tables("进出单表").current
e.Form.Controls("登记出单时间").value=now
e.Form.Controls("是否出单").Checked =True
nr("登记出单时间") = e.Form.Controls("登记出单时间").value
nr("是否出单") = e.Form.Controls("是否出单").Checked