|
那就用动态增加吧。
Dim DataCols1(9),DataCols2(9) As DataCol
DataCols1(0) = DataTables("表A").DataCols("第一列")
DataCols1(1) = DataTables("表A").DataCols("第二列")
DataCols1(2) = DataTables("表A").DataCols("第三列")
DataCols1(3) = DataTables("表A").DataCols("第四列")
DataCols1(4) = DataTables("表A").DataCols("第五列")
DataCols1(5) = DataTables("表A").DataCols("第六列")
DataCols1(6) = DataTables("表A").DataCols("第七列")
DataCols1(7) = DataTables("表A").DataCols("第八列")
DataCols1(8) = DataTables("表A").DataCols("第九列")
DataCols1(9) = DataTables("表A").DataCols("第十列")
DataCols2(0) = DataTables("表B").DataCols("第一列")
DataCols2(1) = DataTables("表B").DataCols("第二列")
DataCols2(2) = DataTables("表B").DataCols("第三列")
DataCols2(3) = DataTables("表B").DataCols("第四列")
DataCols2(4) = DataTables("表B").DataCols("第五列")
DataCols2(5) = DataTables("表B").DataCols("第六列")
DataCols2(6) = DataTables("表B").DataCols("第七列")
DataCols2(7) = DataTables("表B").DataCols("第八列")
DataCols2(8) = DataTables("表B").DataCols("第九列")
DataCols2(9) = DataTables("表B").DataCols("第十列")
Relations.Add("关联", DataCols1, DataCols2)
|
加好友 
发短信
Post By：2009/6/10 17:54:00 [显示全部帖子]
