Dim Cols1() As String = {"甲方客户","项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期","车辆属性","备注","特殊要求","司机搬运费","跟车搬运","人数","订单编号","异常描述","处理结果","责任方"}
Dim Cols2() As String = {"甲方客户","项目","下单日期","MK号","DO号","城市","客户","送货地址","物料代码","数量","体积","重量","承运商","司机","车牌","车数","车型","出车日期","车辆属性","备注","特殊要求","司机搬运费","跟车搬运","人数","订单编号","异常描述","处理结果","责任方"}
Dim count As Integer = 0
Dim ls As new List(of Row)
Dim dic As new Dictionary (Of DataRow, Row)
systemready = False
For Each r As Row In Tables("客服跟单").GetCheckedRows
If r("订单状态") = "配送妥投 " Then
Dim Filter = "[订单编号] = '" & r("订单编号") & "'"
Dim dr As DataRow = DataTables("回单异常").sqlFind(filter)
If dr Is Nothing Then
ls.Add(r)
count += 1
Else
dic.add(dr, r)
End If
Else
e.Cancel = True
End If
Next
Dim p As WinForm.ProgressBar
p = e.Form.Controls("ProgressBar1")
If ls.count > 0 Then
p.Visible = True
p.Maximum = ls.Count - 1 '设置最大值
p.Minimum = 0 '设置最小值
p.Value = 0 '设置当前值
End If
Dim idx As Integer = 0
DataTables("客服跟单").StopRedraw
For Each r As Row In ls
Dim dr As DataRow = DataTables("回单异常").AddNew
For i As Integer = 0 To Cols1.Length -1
If r.IsNull(Cols1(i)) Then
dr(Cols2(i)) = Nothing
Else
dr(Cols2(i)) = r(Cols1(i))
End If
Next
idx += 1
p.Value = idx
r("订单状态") = "已提交"
' r.Remove()
Next
For Each key As DataRow In dic.Keys
Dim r As Row = dic(key)
Dim dr As DataRow = key
For i As Integer = 0 To Cols1.Length -1
If r.IsNull(Cols1(i)) Then
dr(Cols2(i)) = Nothing
Else
dr(Cols2(i)) = r(Cols1(i))
End If
Next
Next
DataTables("客服跟单").ResumeRedraw
p.Visible = False
systemready = True
msgbox("共有 "& count &" 条数据提交" )
Tables("客服跟单").save
Tables("客服跟单").ClearCheckedRows
已发布的项目 数据死活提交不过去 没报错 回单异常没有任何一条数据 不存在相同订单编号 订单状态已是配送妥投 一直都是0条数据提交
加好友 
发短信
Post By：2016/1/4 14:21:00 [显示全部帖子]
此主题相关图片如下：2016-01-05_150309.jpg