以文本方式查看主题

-  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=29492)

--  作者:魔鬼之神
--  发布时间:2013/3/7 18:24:00
--  把数据集导入当前明细表

在主从表界面上,放置一个按钮,点击按钮可以从其他表(或多个表)取得数据集,并导入到当前指定的明细表,如何实现?


--  作者:狐狸爸爸
--  发布时间:2013/3/7 18:26:00
--  

参考:

 

http://www.foxtable.com/help/topics/0685.htm

http://www.foxtable.com/help/topics/1533.htm

 


--  作者:魔鬼之神
--  发布时间:2013/3/7 18:38:00
--  

请问你所给的参考里,表A可以是视图或产生的临时表吗?


--  作者:有点甜
--  发布时间:2013/3/7 18:42:00
--  

这两个适合临时表:

http://www.foxtable.com/help/topics/0680.htm

http://www.foxtable.com/help/topics/1533.htm

 


--  作者:魔鬼之神
--  发布时间:2013/3/7 18:57:00
--  

还有一个小问题,比如我从数据集A把数据导入到当前明细表里,另外我还想把当前主表上的ID也导入到当前明细表,而数据集里是没有这个ID的。如果处理呢?


--  作者:有点甜
--  发布时间:2013/3/7 18:59:00
--  

这样改一下,红色的这行是关键:

 

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("来源表").Select("条件")
     Dim r2 As Row = DataTables("父表.子表").AddNew()
     For i As Integer = 0 To Cols1.Length -1
         dr2(Cols2(i)) = dr1(Cols1(i))
     Next
 Next


--  作者:魔鬼之神
--  发布时间:2013/3/7 19:01:00
--  
好的。我试下。谢谢
--  作者:魔鬼之神
--  发布时间:2013/3/7 19:04:00
--  

红色这一行,加上“父表.子表“后,会提示找不到这个表。DataTables的不能这样写表名吧?