Jeżeli Rs.State = (1) Wtedy Rs.Close
Rs.Open "Wybrany Invo_Dtl.Invo_No, Invo_Dtl.Invo_Date jako _Invo_Date_, Invo_Dtl.Invo_From jako _From, Invo_Dtl.Invo_To jako _To, Invo_Dtl.Invo_Truck_No jako Truck_No, Invo_Dtl.Invo_TP_No jako TP_No, Invo_Dtl.Invo_TP_Date jako TP_Date, Invo_Dtl.Invo_Amount jako Net_Amount, Invo_Dtl.Invo_Load _Loading, Invo_Dtl.Invo_Insu równie Ubezpieczenie, Invo_Dtl.Invo_Vat_Cst VAT_CST, Invo_Dtl.Invo_Total od Invo_Dtl dokąd Invo_Dtl.Invo_Date >=#" & DTPicker1.Value & "# i Invo_Dtl.Invo_Date <> (0) Wtedy
Set DataGrid1.DataSource = Rs
|