以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制临时表时  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=145522)

--  作者:蓝蚂蚁
--  发布时间:2020/1/28 9:24:00
--  复制临时表时

图片点击可在新窗口打开查看此主题相关图片如下:image 1.jpg
图片点击可在新窗口打开查看

想复制临时表的内容到内部表,有如下代码:
    \'Dim Cols1BQK001() As String = {"手术月份","计划类型_1","总金额_平均_1","计划类型_2","总金额_平均_2"}   ‘临时表结构
    \'Dim Cols2BQK001() As String = {"手术月份","半髋_例数_台","半髋_平均费用_均费","全髋_例数_台","全髋_平均费用_均费"}   ’内部表结构
遇到问题:临时表结构是不定的,但内部表时固定的,如何才能正确的把临时表复制到内部表?谢谢了

--  作者:y2287958
--  发布时间:2020/1/28 9:35:00
--  
这个必须要有一个对应复制关系,也可以使用列序方式
--  作者:有点蓝
--  发布时间:2020/1/28 9:39:00
--  
至少要有一定的规律,如果列名不定,那要保证列的顺序是一致的

Dim dr2 As DataRow = DataTables("表B").AddNew()
For i As Integer = 0 To Cols1.Length -1
    dr2(Cols2BQK001(i)) = dr1(i)
Next