用Filler填充datatables("凭证")约1000行数据
函数A
For Each dr As Row In Tables("凭证_Table1").Rows
If dr IsNot Nothing Then
Dim dr1 As DataRow
dr1 = DataTables("GLObj").SQLFind("[FObjID] = '" & dr("核算项目代码") & "'")
If dr1 IsNot Nothing Then
dr("核算项目名称") = dr1("FObjName")
End If
dr.save()
End If
Next
Functions.AsyncExecute("函数A")
当窗口1_table1首次加载数据时,总是提示调用的目标发生了异常。是什么原因?如果窗口1_table1原来有数据,就不会提示异常
[此贴子已经被作者于2024/3/29 21:31:55编辑过]