If Not Tables("订单管理_Table1").Cols.Contains("时效") Then
DataTables("订单管理_Table1").DataCols.Add("时效", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("收件信息") Then
DataTables("订单管理_Table1").DataCols.Add("收件信息", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("货品摘要") Then
DataTables("订单管理_Table1").DataCols.Add("货品摘要", Gettype(String ),9999)
End If
If Not Tables("订单管理_Table1").Cols.Contains("时间信息") Then
DataTables("订单管理_Table1").DataCols.Add("时间信息", Gettype(String ),999)
End If
If Not Tables("订单管理_Table1").Cols.Contains("图标") Then
DataTables("订单管理_Table1").DataCols.Add("图标", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("备注信息") Then
DataTables("订单管理_Table1").DataCols.Add("备注信息", Gettype(String), 999)
End If
If Not Tables("订单管理_Table1").Cols.Contains("订单状态") Then
DataTables("订单管理_Table1").DataCols.Add("订单状态", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("店铺") Then
DataTables("订单管理_Table1").DataCols.Add("店铺", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("买家") Then
DataTables("订单管理_Table1").DataCols.Add("买家", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("金额") Then
DataTables("订单管理_Table1").DataCols.Add("金额", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("重量") Then
DataTables("订单管理_Table1").DataCols.Add("重量", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("件数") Then
DataTables("订单管理_Table1").DataCols.Add("件数", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("快递模板") Then
DataTables("订单管理_Table1").DataCols.Add("快递模板", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("运单号") Then
DataTables("订单管理_Table1").DataCols.Add("运单号", Gettype(String ),255)
End If
If Not Tables("订单管理_Table1").Cols.Contains("订单号") Then
DataTables("订单管理_Table1").DataCols.Add("订单号", Gettype(String ),999)
End If
If Not Tables("订单管理_Table1").Cols.Contains("序号") Then
DataTables("订单管理_Table1").DataCols.Add("序号", Gettype(String ),255)
End If
'【删除】
Dim cmd As new *************
Tables("订单管理_快递表").DataSource = dt
Dim cmd1 As new SQL**********************
Tables("订单管理_店铺表").DataSource = dt1
For Each r As Row In Tables("订单管理_Table1").Rows
Dim t1 As Date=r("TradeTime")
Dim t As TimeSpan = Date.Now-t1
r("时效")=t.Days & "天" & t.Hours & "小时" & t.Minutes & "分"
r("收件信息")=r("Country")& r("Province")& r("City")& r("Town")& r("Adr").substring(0,2) & "****" & r("Adr").substring(r("Adr").Length-2) &" "& r("Tel").substring(0,3) & "****" & r("Tel").substring(7) &" "& r("SndTo")
r("备注信息")="买家:"&r("CustomerRemark")&vbcrlf &"卖家:"&r("Remark")&vbcrlf &"系统:"&r("AppendRemark")
r("时间信息")="下:"&r("TradeTime")&vbcrlf &"审:"&r("ConfirmTime")&vbcrlf &"快登记时间:"&r("RegTime")&vbcrlf &"字段四单:"&r("Reserved4")&vbcrlf &"验:"&r("ChkTime")&vbcrlf &"发:"&r("SndTime")
r("货品摘要")=r("GoodsList")
Select Case r("TradeStatus")
Case 0
r("订单状态")="已取消"
Case 2
r("订单状态")="审核中"
Case 5
r("订单状态")="打印中"
Case 7
r("订单状态")="验货中"
Case 9
r("订单状态")="代销发货"
Case 10
r("订单状态")="委外发货"
Case 11
r("订单状态")="已发货"
End Select
Dim dr As DataRow
dr = DataTables("订单管理_店铺表").Find("ShopID='" &r("ShopID") & "'")
If dr IsNot Nothing Then '如果找到的话
r("店铺")=dr("ShopName")
End If
r("买家")=r("TradeNick")
r("金额")=r("AllTotal")
r("重量")=r("PackagedWeight")
r("件数")=""
If not r("Reserved2")="" Then
Dim 快递 As DataRow = DataTables("订单管理_快递表").Find("[_Identify] = " & r("Reserved2") )
If 快递 IsNot Nothing Then
r("快递模板")=快递("快递名称")
End If
End If
r("运单号")=r("PostID")
r("订单号")= "系统单号:"&r("TradeNO")& vbcrlf &"原始单号:"&r("TradeNO2")
Next
'设置列宽行高排序
Tables("订单管理_Table1").DefaultRowHeight =87
Tables("订单管理_Table1").SetColVisibleWidth("序号|30|图标|50|订单号|130|订单状态|50|店铺|80|时效|100|买家|80|收件信息|120|金额|40|重量|40|件数|40|快递模板|50|运单号|100|货品摘要|120|时间信息|200|备注信息|200")
Tables("订单管理_Table1").Sort ="时效"
Tables("订单管理_Table1").SetHeaderRowHeight(25)
For Each r As Row In Tables("订单管理_Table1").rows
r("序号") = r.index+1
Next
加好友 
发短信
Post By：2020/9/18 13:06:00 [只看该作者]
