- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 怎样将表A内的数据按照列名复制到表B内? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39807)
-- 发布时间：2013/9/2 11:12:00
-- 怎样将表A内的数据按照列名复制到表B内?
表A和表B有同样名称的列,怎样将表A内的数据按照列名复制到表B内?
-- 发布时间：2013/9/2 11:27:00
--
for i as Integer = 0 to tables("表A").rows.Count -1
dim r as row = tables("表B").addnew()
for each cl As col In tables("表A").cols
r(cl) = tables("表A").rows(i)(cl)
Next
Next
[此贴子已经被作者于2013-9-2 11:43:23编辑过]
-- 发布时间：2013/9/2 11:38:00
--
这行报错
-- 发布时间：2013/9/2 11:41:00
--
晕，我疏忽了，多加了一个循环，2楼已经修正！
[此贴子已经被作者于2013-9-2 11:44:15编辑过]
-- 发布时间：2013/9/2 15:18:00
--
多谢程老师！
-- 发布时间：2013/9/2 15:27:00
--
怎样使A表内的列B表内没有时跳过该列而不是报错？
-- 发布时间：2013/9/2 15:28:00
--
For i As Integer = 0 To Tables("表A").rows.Count -1
Dim r As Row = Tables("表B").addnew()
For Each cl As Col In Tables("表A").cols
If Tables("表A").Cols.Contains(cl) Then 就是多加个判断的事情
r(cl) = Tables("表A").rows(i)(cl)
End If
Next
Next
-- 发布时间：2013/9/2 15:46:00
--
If Tables("表A").Cols.Contains(cl) Then
编译错误：类型"col"的值无法转换为“string”
-- 发布时间：2013/9/2 16:34:00
--
晕，这样才对，两处错误：
For i As Integer = 0 To Tables("表A").rows.Count -1
Dim r As Row = Tables("表B").addnew()
For Each cl As Col In Tables("表A").cols
If Tables("表B").Cols.Contains(cl.name) Then 就是多加个判断的事情
r(cl) = Tables("表A").rows(i)(cl)
End If
Next
Next
-- 发布时间：2013/9/2 16:43:00
--
以下是引用程兴刚在2013-9-2 16:34:00的发言：
晕，这样才对，两处错误：
For i As Integer = 0 To Tables("表A").rows.Count -1
Dim r As Row = Tables("表B").addnew()
For Each cl As Col In Tables("表A").cols
If Tables("表B").Cols.Contains(cl.name) Then 就是多加个判断的事情
r(cl) = Tables("表A").rows(i)(cl)
End If
Next
Next
