Foxtable(狐表)用户栏目专家坐堂 → [求助]数据填充找不到表


  共有1830人关注过本帖平板打印复制链接

主题:[求助]数据填充找不到表

帅哥哟,离线,有人找我吗?
lgj716330
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1301 积分:10050 威望:0 精华:0 注册:2013/11/8 15:27:00
[求助]数据填充找不到表  发帖心情 Post By:2019/6/13 15:17:00 [只看该作者]

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}

什么原因呢

 回到顶部
总数 11 1 2 下一页