Si Rs.State = 1 puis Rs.Close
Rs.Open « Invo_Dtl.Invo_No choisi, Invo_Dtl.Invo_Date comme _Invo_Date_, Invo_Dtl.Invo_From comme _From, Invo_Dtl.Invo_To comme _To, Invo_Dtl.Invo_Truck_No comme Truck_No, Invo_Dtl.Invo_TP_No comme TP_No, Invo_Dtl.Invo_TP_Date comme TP_Date, Invo_Dtl.Invo_Amount comme Net_Amount, Invo_Dtl.Invo_Load comme _Loading, Invo_Dtl.Invo_Insu comme assurance, Invo_Dtl.Invo_Vat_Cst comme VAT_CST, Invo_Dtl.Invo_Total d'Invo_Dtl où >=# d'Invo_Dtl.Invo_Date » et DTPicker1.Value et « # et Invo_Dtl.Invo_Date <> 0 puis
Placer DataGrid1.DataSource = Rs
|