1、弹出什么?
output.show("aaa" & drs("tableaddress") & "bbb") 什么都没有弹出,这个错误只有在代码创建的表里面有问题。不知道原因。
2、执行下面代码,看弹出什么
Dim drs = DataTables("masterdata").SQLSelect("")
msgbox(drs.count)
drs = DataTables("masterdata").SQLSelect("tableaddress is not null")
msgbox(drs.count)
所有的表的名字都在里面,所以照道理应该可以找到第一条的那个表,但结果就是找不到。
3、datacolchanged事件,你写了什么代码?
是如下代码有问题,不知道原因。
tardr=DataTables("soindex").SQLFind(" so_no = '" & e.DataRow("sono") & "'") 如果这里用find,就不会有错误
If tardr IsNot Nothing Then
Dim deliverydate As Date
If e.DataRow("Request_dispatchDate") <> #1/1/1 00:00:00# Then
deliverydate=e.DataRow("Request_dispatchDate")
Else
deliverydate=e.DataRow("request_oridate")
End If
tardr("FG_family")=e.DataRow("FG_family")
tardr("PO_receiveDate")=e.DataRow("PO_receivedate")
tardr("Request_date")=deliverydate
messagebox.show(1),1可以出来
tardr("OCstart")=e.DataRow("OC_StartDate")
tardr.save,此时报错
messagebox.show(2),2可以出来