Dim lmFile As String = ProjectPath & "lm.txt"
Dim bmFile As String = ProjectPath & "bm.txt"
Dim lm As String = FileSys.ReadAllText(lmFile,Encoding.Default)
Dim bm As String = FileSys.ReadAllText(bmFile,Encoding.Default)
Dim qj As String
qj = e.Form.Controls("ComboBox1").Text
Dim Cols1() As String = lm.split(",")
Dim Cols2() As String = {"科目编码","部门编码","职员编码","客户编码","供应商编码","会计期间","借方金额"}
For Each dr1 As DataRow In DataTables(bm).Select("[会计期间] = '" & qj & "'")
Dim dr2 As DataRow = DataTables("辅助总账").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
bm表是外部数据表，bm.txt里写的名称是GL_accass，出现以下错误提示
此主题相关图片如下：qq图片20190613150958.png
但用查询表并没有问题
select ccode,cdept_id,cperson_id,ccus_id,csup_id,iperiod,md fro m {GL_accass}
什么原因呢
加好友 
发短信
Post By：2019/6/13 15:17:00 [显示全部帖子]
