For Each tr1 As Row In Tables("模式窗-导入订单_table1")
'查询原始订单号判断此订单是否曾经导入过
Select Case tr1("导入状态")
Case ""
Dim tr2 As DataRow = DataTables("订单管理").find("原始单号='" & tr1("订单ID/采购单ID") & "'")
Dim trs1 As List(of Row)
trs1=Tables("模式窗-导入订单_table1").Select("订单ID/采购单ID = '" & tr1("订单ID/采购单ID") & "'")
If tr2 IsNot Nothing Then
For Each tr3 As Row In trs1
tr3("导入状态")="不可导入"
Next
Else
For Each tr3 As Row In trs1
tr3("导入状态")="可导入"
Next
End If
Case "可导入"
Case "不可导入"
n=n+1
End Select
Next
保存时出现标题那样的错误提示，请问是哪里搞错了？
加好友 
发短信
Post By：2017/1/19 23:26:00 [显示全部帖子]
