主题：[求助]关于表间数据传递

有表A、B，设计窗口打开A表，获取A的部分数据，添加其他内容，存入B表；该如何实现？

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

 Dim r As Row = Tables("表A").Current

 nr("第一列") = r("第一列")

 nr("第二列") = r("第二列")

谢谢 我用上面的方法，绑定click事件，增加的行是空白的。另外 录入窗口的文本框控件不用去管他吗？

对于控件，似乎有点明白：已绑定的控件就不能通过代码来修改其值了，其仅能展示数据？如果要代码修改，只能直接改其列？

 上传实例说明你要做的功能吧。

请帮助帮主帮忙，谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实例a.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实例1.foxdb

谢谢版主，第一个问题豁然开朗。关键是第二个问题，如果表B流水号是主键，窗口何时用什么事件来自动输入，才不会出错是头大的问题？

 DataRowAdded事件

 

Dim d As Date = Date.Today
Dim bh As String = "SJ" & Format(d,"yyyyMMdd") '生成编号的前缀
Dim max As String
Dim idx As Integer
Dim flt As String
flt = "事件流水 like '" & bh & "%'"
max = e.DataTable.Compute("Max(事件流水)",flt) '取得该月的相同工程代码的最大单据编号
If max > "" Then '如果存在最大单据编号
    idx = CInt(max.Substring(bh.length)) + 1 '获得最大单据编号的后四位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("事件流水") = bh & Format(idx,"0000")

谢谢   DataRowAdded事件是加在表B的事件里吗？  报错：编号“ ”已存在，不能重复。即编号没生成。