Dim d1 As Date = #1/1/1970 08:00:00#
Dim dr1,dr2,nr As DataRow
Dim cmd As New SQLCommand
Dim dt1,dt2 As DataTable
Dim sCols() As String = {"AddTime"}
Dim dCols() As String = {"日期"}
cmd.C
cmd.CommandText = "SELECT * From orderson a INNER JOIN orderlist b ON a.OrderNumber = b.OrderNumber Order By orderson.WeiZhi "
dt1 = cmd.ExecuteReader()
dt2 = DataTables("订单表")
dt2.StopRedraw()
For Each dr1 In dt.DataRows
dr2= dt2.Find("编号 = '" & dr("OrderNumber") & "' And ID ='" & dr("ID") & "'")
If dr2 Is Nothing Then
nr = DataTables("小包发货单").AddNew()
nr("日期") = d1.AddSeconds(dr("AddTime"))
End If
Next
dt2.ResumeRedraw()
加好友 
发短信
Post By：2014/5/10 18:43:00 [显示全部帖子]
