Om Rs.State = 1 därefter Rs.Close
Rs.Open ”vald Invo_Dtl.Invo_No, Invo_Dtl.Invo_Date som _Invo_Date_, Invo_Dtl.Invo_From som _From, Invo_Dtl.Invo_To som _To, Invo_Dtl.Invo_Truck_No som Truck_No, Invo_Dtl.Invo_TP_No som TP_No, Invo_Dtl.Invo_TP_Date som TP_Date, Invo_Dtl.Invo_Amount som Net_Amount, Invo_Dtl.Invo_Load som _Loading, Invo_Dtl.Invo_Insu som försäkring, Invo_Dtl.Invo_Vat_Cst som VAT_CST, Invo_Dtl.Invo_Total från Invo_Dtl var Invo_Dtl.Invo_Date->=#” & DTPicker1.Value & ”nr. och Invo_Dtl.Invo_Date <> 0 därefter
Uppsättning DataGrid1.DataSource = Rs
|