下面的代码,在红色部分,使用先加载后台表,再运行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