If e.DataCol.name = "SN" Then
Dim nms() As String = {"生产订单号码","工单行号","物料编码","物料名称","类别说明","产品批次","订单号","订单行号","客户","备注","软件版本","状态"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
msgbox(0)
Dim dr1 As DataRow = DataTables("assemblyProduct").Find("deviceCode = '" & e.DataRow("SN") & "'")
If dr1 IsNot Nothing Then
msgbox(1)
Dim dr2 As DataRow = DataTables("assemblySubWorkOrder").Find("SID = '" & dr1("subWorkOrder") & "'")
msgbox(2)
If dr2 IsNot Nothing Then
msgbox(3)
e.DataRow("工单行号") = dr2("LineFlag")
msgbox(4)
Dim dr3 As DataRow = DataTables("assemblyWorkOrder").Find("Id = '" & dr2("workOrder") & "'")
If dr3 IsNot Nothing Then
msgbox(5)
e.DataRow("生产订单号码") = dr3("WorkOrderNo")
msgbox(6)
执行红色代码会报未将对象引用设置到对象实例。代码不应该有问题啊。这是怎么回事？
加好友 
发短信
Post By：2016/1/30 17:12:00 [只看该作者]
