شوف حدث الفورم لود بعد التعديل
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
conn2018.open()
Dim DepCom As New OleDbCommand("Select * From Factory", conn2018)
Dim DepAdap As New OleDbDataAdapter(DepCom)
Dim DepDT As New DataTable
DepAdap.Fill(DepDT)
DataGridView1.DataSource = DepDT
'=========
Dim DepCom2 As New OleDbCommand("Select * From Factory where [date_in]<#" & Now.ToShortDateString & "# and [hour_in]<#" & Format(Now, "HH:mm") & "#", conn2018)
Dim DepAdap2 As New OleDbDataAdapter(DepCom2)
Dim DepDT2 As New DataTable
DepAdap2.Fill(DepDT2)
DataGridView2.DataSource = DepDT2
End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

