下面的代码，在红色部分，使用先加载后台表，再运行FIND的情况下能正确赋值。但是换成SQLfind就报错：不存在名称为“”的datatable。未将应用引用到实例。
For Each dr As DataRow In DataTables("月科目统计表").DataRows
Dim x As String = dr("凭证类型")
If Tables("月科目统计表").current("凭证类型") = "职员工资单" Then
Dim gzb As DataRow = DataTables("工资表").sqlFind("工资单号 = '"& dr("单号") &"'")
If gzb IsNot Nothing Then
gzb("借方代码") = Tables("月科目统计表").Current("借方代码")
gzb("借方科目") = Tables("月科目统计表").Current("借方科目")
gzb("贷方代码") = Tables("月科目统计表").Current("贷方代码")
gzb("贷方科目") = Tables("月科目统计表").Current("贷方科目")
gzb.save
gzb.load
Else
msgbox("找不到")
End If
End If
Next
加好友 
发短信
Post By：2022/3/10 4:18:00 [显示全部帖子]
