If e.Form.controls("DateTimePicker1").Value IsNot Nothing And e.Form.controls("DateTimePicker2").Value Is Nothing Then
For Each nm() As String In DataTables("车号信息记录").GetValues("客户名称|托运人","[客户名称] Is Not Null and [托运人] Is Not Null and [日期] >= '"& e.Form.controls("DateTimePicker1").Value & "'")
Dim mrs As new List (of DataRow)
mrs = DataTables("车号信息记录").Select("[客户名称] = '" & nm(0) & "' And[托运人] = '" & nm(1) & "'And [日期] >= '"& e.Form.controls("DateTimePicker1").Value & "'")
For Each mr As DataRow In mrs
Dim mc0 As Integer = mr("车号")
Dim md0 As Decimal = mr("标重")
Dim mc As String = cstr(mc0)
Dim md As String = cstr(md0)
Dim mcds() As String = {mc,md}
Dim mcd As String
mcd = String.Join("/", mcds)
Dim zcds As new List (of String)
If zcds.contains("mcd") = False Then
zcds.add("mcd")
End If
Dim arys() As String
arys = zcds.Toarray()
Dim dr As DataRow = DataTables("客户车号统计表").AddNew()
dr("客户名称") = nm(0)
dr("托运人") = nm(1)
dr("车号和标重")= cd
Next
Next
Next
End If
加好友 
发短信
Post By：2015/1/1 9:00:00 [只看该作者]
