主题：[求助]填充

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

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

要把A表和B表填充成C表这样，要怎么弄？

For Each dp As String In DataTables("表A").getvalues("店铺名称", "店铺名称 is not null")
    For Each jj As String In DataTables("表B").getvalues("年份季节", "年份季节 is not null")
        Dim ndr As DataRow = DataTables("表C").addnew
        ndr("店铺名称") = dp
        ndr("年份季节") = jj
    Next
Next

Dim lmFile As String = ProjectPath &  "lm.txt" '通过更改lm文件的列名
Dim bmFile As String = ProjectPath &  "bm.txt" '通过更改bm文件的表名
Dim  lm As  String = FileSys.ReadAllText(lmFile)
Dim  bm As  String = FileSys.ReadAllText(bmFile)
Dim Cols1() As String = {lm}
Dim Cols2() As String = {"科目编码","部门编码","客户编码"}
For Each dr1 As DataRow In DataTables(bm).Select("[会计期间] = 01")
     Dim dr2 As DataRow = DataTables("辅助总账测试").AddNew()
     For i As Integer = 0 To Cols1.Length -1
         dr2(Cols2(i)) = dr1(Cols1(i))
     Next
 Next

 

 

 

此主题相关图片如下：qq图片20180621122454.png

上述代码提示kmbm,bmbm,kfbm不属于表fz,但把kmbm,bmbm,kfbm分别定义又是可以的，上述列名不能同时写在一个文本里吗

改成

 

Dim Cols1() As String = lm.split(",")

哦，追问下，文本里只能是数字和字母吗，用中文好象不行

Dim  lm As  String = FileSys.ReadAllText(lmFile, Encoding.Default)
Dim  bm As  String = FileSys.ReadAllText(bmFile, Encoding.Default)