| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 在关联表内高速合并 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=44685) |
| -- 作者：htlk25 -- 发布时间：2014/1/6 20:44:00 -- 在关联表内高速合并 请问各位老师： 我想在“表A”的子表“表B”中使用 高速合并，要求合并完成后“表B”的关联列中自动填入"表A"关联列的内容； 多谢了！
|
| -- 作者：有点甜 -- 发布时间：2014/1/6 20:50:00 -- 去编写表B的 DataRowAdded 事件，然后再合并 e.DataRow("关联列") = Tables("表A").Current("关联列")
|
| -- 作者：htlk25 -- 发布时间：2014/1/6 21:44:00 -- 非常感谢，解决了！ 我也用了你这样的思路，但代码是这样写的： Dim drA As Row = Tables("展会信息").Current Dim drB As Row = Tables("展会信息.原始名单").AddNew() drB = drA 运行后直接退出！ 什么原因啊
|
| -- 作者：狐狸爸爸 -- 发布时间：2014/1/6 21:46:00 -- 做个按钮：
Dim cnt as integer = DataTables("原始名单").Datarows.Count 写代码正常合并数据到原始名称 For i as integer = cnt to DataTables("原始名单").Datarows.Count -1 DataTables("原始名单").Datarows(i)("关联列") = Tables("展会信息").Current("关联列") next |
| -- 作者：有点甜 -- 发布时间：2014/1/6 21:49:00 -- 呃，代码不能这样写吧？得这样写吧？ Dim drA As Row = Tables("展会信息").Current Dim drB As Row = Tables("展会信息.原始名单").AddNew() drB("xxx") = drA("xxxx") drB("xxx") = drA("xxxx") |