- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码求教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96523)
-- 发布时间：2017/2/22 16:45:00
-- 代码求教
求教，窗口确定按钮事件，在关联表格中自动增加一行，并将窗口中的各项信息自动添加到表格各列中
-- 发布时间：2017/2/22 16:55:00
--
Dim nr As Row = Tables("表A.表B").AddNew
nr("第一列") = e.Form.Controls("TextBox1").Text
nr("第二列") = e.Form.Controls("TextBox2").Text
[此贴子已经被作者于2017/2/22 19:48:20编辑过]
-- 发布时间：2017/2/22 17:36:00
-- 谢谢
麻烦看下错误在哪，数据类型不对？
CurrentTable.AddNew()
Dim nr1 As String ="TextBox1"
Dim nr2 As String ="TextBox2"
Dim nr3 As String ="TextBox3"
Dim nr4 As String ="TextBox4"
With CurrentTable
.Position = .Position + 1
nr1("方案名称") = e.Form.Controls("TextBox1").Text
nr2("项目名称") = e.Form.Controls("TextBox2").Text
nr3("附件") = e.Form.Controls("TextBox3").Text
nr4("编制日期") = e.Form.Controls("TextBox4").Text
End With
-- 发布时间：2017/2/22 17:39:00
--
看2楼代码。
-- 发布时间：2017/2/22 18:36:00
--
-- 发布时间：2017/2/22 19:48:00
--
|
Dim nr As Row = Tables("表A.表B").AddNew nr("第一列") = e.Form.Controls("TextBox1").Text nr("第二列") = e.Form.Controls("TextBox2").Text |