[سعود]

شوف حدث الفورم لود بعد التعديل

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