以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  生成另一表格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20968)

--  作者：liutqj --  发布时间：2012/6/25 16:56:00 --  生成另一表格 我有一表A和表B，用什么方法自动生成表C，请专家指导。  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目3.rar

--  作者：狐狸爸爸 --  发布时间：2012/6/25 17:18:00 --   DataTables("表C").Datarows.Clear() For Each dr1  As DataRow In DataTables("表A").Select("xm Is Not Null")     For Each dr2 As DataRow In DataTables("表B").Select("第一列 is not null")         Dim dr3 As DataRow = DataTables("表C").AddNew()         dr3("第一列") = dr1("xm")         dr3("第二列") = dr1("第二列")         dr3("第三列") = dr2("第一列")         dr3("第四列") = dr2("第二列")         dr3("第五列") = dr2("第三列")     Next Next