好,以下代码是从SQL服务器中引入相关数据。如何再增加个条件,使其下载再同时符合窗口textbox1的条件和 datetimepicker1的条件。谢谢。
Dim cmd As New SQLCommand
Dim dt As DataTable
DataTables("Orderlist").datarows.clear
cmd.C
Dim Cols1() As String = {"FEntrySelfS0179","FDate1","FHeadSelfS0149","Fshortname","FHeadSelfS0150","FEntrySelfS0173","FNumber","f_105","Fauxqty","FEntrySelfS0171","FAuxTaxPrice","FAllAmount","Fnumber1","FEntrySelfS0170","FEntrySelfS0178","FEntrySelfS0165","FAdviceConsignDate","FName1","F_103","FEntrySelfS0174","FName3","F_106","FEntrySelfS0166","FCountry","FEntryId","FInterId"} '原数据列
Dim Cols2() As String = {"suppliername","Orderdate","GSSAG_PO","EndCustomer","CustomerPO","Pos","GSSPart","PartNo","OrderQty","OpenQty","UnitPrice","OrderVolume","Currency","RequestETA","ETA","PickupDate","ETD","ShippingTerms","DeliveryAddress","confirmedETA","Deliveryaddress_customername","DeliveryRemark","OrderRemark","Country","EnterId","InerId"}
cmd.CommandText ="Se lect {SEOrderEntry}.*,{SEOrder}.*,{t_Currency}.FName,{t_SubMessage}.FName,FShortName,[F_105],{t_Item_3005}.[F_103],{t_ICItemCore}.FNumber,{t_ICItemCore}.FName,{t_Currency}.FNumber,{t_Item_3005}.FName,[F_106],FCountry From (((((({SEOrderEntry} Inner JOIN {SEOrder} ON {SEOrder}.[FInterID] = {SEOrderEntry}.[FInterID]) Inner JOIN {t_ICItemCore} ON {t_ICItemCore}.[FItemID] = {SEOrderEntry}.[FItemID]) Inner JOIN {t_Currency} ON {t_Currency}.[FCurrencyID] = {SEOrder}.[FCurrencyID]) Left JOIN {t_Item_3005} ON {t_Item_3005}.[FItemID] = {SEOrderEntry}.[FEntrySelfS0177]) Left JOIN {t_SubMessage} ON {t_SubMessage}.[FInterID] = {SEOrderEntry}.[FEntrySelfS0172]) Left JOIN {t_Organization} ON {t_Organization}.[FItemID] = {SEOrder}.[FHeadSelfS0152]) Inner JOIN {t_ICItemCustom} ON {t_ICItemCustom}.[FItemID] = {t_ICItemCore}.[FItemID] Where Fcancellation = 0 and FMrpclosed = 0"
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
Dim dr2 As DataRow = DataTables("Orderlist").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
dr2("批号") ="T"& dr2("InerID") & "_" & dr2("EnterId")
Next
Next
Tables("Orderlist").ResumeRedraw()
Tables("Orderlist").save
msgbox("导入完成")