以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关联表填充问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11523)

--  作者:xmj09663
--  发布时间:2011/8/1 10:32:00
--  关联表填充问题

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

 

 

这个不是我 想要的答案  

 

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

 

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

 

filler() 这个函数   又用不到关联表    纠结啊


--  作者:blackzhu
--  发布时间:2011/8/1 10:36:00
--  
执行填充之前删除所有行,重新填充.这是一


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

--  作者:xmj09663
--  发布时间:2011/8/1 10:41:00
--  
老朱  你说的 我全调试了  都不行  遍历 只能删除第一行  后面的去不了
--  作者:狐狸爸爸
--  发布时间: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编辑过]

--  作者:xmj09663
--  发布时间:2011/8/1 10:49:00
--  

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


--  作者:狐狸爸爸
--  发布时间:2011/8/1 10:58:00
--  

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

 

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

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

End If


--  作者:blackzhu
--  发布时间:2011/8/1 11:01:00
--  
DataTables("表名").datarows.clear

删除全部行.

--  作者:xmj09663
--  发布时间:2011/8/1 11:02:00
--  
呵呵   谢谢老爹   不过 我突发灵感 改变了设计思路   不需这 玩意了   操作更犀利了    哈哈  俺太有才了
--  作者:blackzhu
--  发布时间:2011/8/1 11:03:00
--  
DataTables("表B").deleteFor("关联列 = " & Tables("表A").Current(“关联列")) 这个也行
--  作者:xmj09663
--  发布时间:2011/8/1 11:03:00
--  

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

 

只能用  Tables("表名")