[asemshahen5]

هذا كود الفورم رقم 6 بعد التعديل بصراحة انا دققت في الفورم 5 :

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If MaskedTextBox1.Text.Length <> 8 Then
            MsgBox("الرجاء التحقق من التاريخ")
            Exit Sub
        End If
        dt.Rows.Add()
        Dim pos As String = dt.Rows.Count - 1
        dt.Rows(pos).Item(1) = TextBox1.Text
        Dim dd As New Date
        dd = Convert.ToDateTime(MaskedTextBox1.Text)
        dt.Rows(pos).Item(2) = dd
        dt.Rows(pos).Item(3) = TextBox3.Text
        dt.Rows(pos).Item(4) = TextBox4.Text
        save_date()
        load_date()
        MsgBox("تمت الاضافه بنجاح")
        Me.Close()
        Form5.Close()
    End Sub