标题：关联表填充问题

1楼

xmj09663 发表于：2011/8/1 10:32:00

http://www.foxtable.net/help/index.html?n=1533.htm

这个不是我想要的答案

情况是这样的关联表里是有数据的但是现在我有新的数据需要填充到关联表中条件是先要删除关联表中原有的数据

清楚关联表所以行的代码我调不出来

filler（）这个函数又用不到关联表纠结啊

2楼

blackzhu 发表于：2011/8/1 10:36:00

执行填充之前删除所有行,重新填充.这是一

二就是,利用遍历行的代码将要修改行重新修改掉.

3楼

xmj09663 发表于：2011/8/1 10:41:00

老朱你说的我全调试了都不行遍历只能删除第一行后面的去不了

4楼

狐狸爸爸 发表于：2011/8/1 10:44:00

刚刚回短信想贴给你，但是不通过。

可以的：

For Each r1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim r2 As Row = Tables("关联表").AddNew()
    For Each dc As DataCol in DataTables("表A").DataCols
        r2(dc.Name) = r1(dc.name)
      Next
Next

至于删除关联表的数据，我想不用我说了。

[此贴子已经被作者于2011-8-1 10:46:02编辑过]

5楼

xmj09663 发表于：2011/8/1 10:49:00

老爹你上面那段代码我现在就在用我就差删除关联表的数据了肯能最近通宵过多用脑过度吧脑子转不过来看来需要补充一下睡眠了

6楼

狐狸爸爸 发表于：2011/8/1 10:58:00

假定需要清除关联表“表A.表B”的数据：

If Tables("表A").Current IsNot Nothing Then

DataTables("表B").RemoveFor("关联列 = " & Tables("表A").Current(“关联列")）

End If

7楼

blackzhu 发表于：2011/8/1 11:01:00

DataTables("表名").datarows.clear

删除全部行.

8楼

xmj09663 发表于：2011/8/1 11:02:00

呵呵谢谢老爹不过我突发灵感改变了设计思路不需这玩意了操作更犀利了哈哈俺太有才了

9楼

blackzhu 发表于：2011/8/1 11:03:00

DataTables("表B").deleteFor("关联列 = " & Tables("表A").Current(“关联列")）这个也行

10楼

xmj09663 发表于：2011/8/1 11:03:00

老朱关联表不能用 DataTables("表名").datarows.clear

只能用 Tables("表名")

共10 条记录, 每页显示 10 条, 页签: [1]