主题：两个表想乘怎么做

参考

 

http://www.foxtable.com/webhelp/scr/1533.htm

 

 

你的20个仓库，写成循环，即可。一个仓库执行一遍2楼代码即可。

不会做请上传具体项目。

For Each r As DataRow In DataTables("表C").Select("")
    For Each dr1 As DataRow In DataTables("表b").Select("")
        Dim dr2 As DataRow = DataTables("表a").AddNew()
        For Each dc As DataCol In DataTables("表b").DataCols
            dr2(dc.Name) = dr1(dc.name)
        Next
        dr2("仓库") = r("仓库")
    Next
Next

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

加上 http://www.foxtable.com/webhelp/scr/0401.htm

 

不然你就用查询表，执行sql语句，如 select * from {表B},{表C}