[justforit]

لازم تفاصيل اكثر لاني جربت مثال بسيط داتاتيبل وقت التشغيل ولم اجد اي مشكلة مماذكرت..
Module:

PHP كود :

Module Module1
    Public dt As New DataTable("tb")
    Public Sub createdt()
        Dim dtid As New DataColumn("tid", GetType(Integer))
        dtid.AutoIncrement = True
        dt.Columns.Add(dtid)
        dt.Constraints.Add("tb_pk", dtid, True)
        dt.Columns.Add("tname", GetType(String))
        dt.Columns.Add("email", GetType(String))
        dt.Columns.Add("phone", GetType(String))
    End Sub
End Module 


Form1:

PHP كود :

Public Class Form1
    Private Sub gd()
        d.DataSource = dt
        ComboBox1.DataSource = dt
        ComboBox1.DisplayMember = "tname"
        ComboBox1.ValueMember = "tid"
        d.DefaultCellStyle.BackColor = Color.Black
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        createdt()
         gd()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ad As New Add
        ad.ShowDialog()
        ad.Dispose()
    End Sub
End Class 


Add:

PHP كود :

Public Class Add
    Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click
        For Each h As Control In Me.Controls
            If TypeOf h Is TextBox Then
                If h.Text = "" Then Exit Sub
            End If
        Next
        Dim row As DataRow = dt.NewRow
        row(1) = txtname.Text
        row(2) = txtemail.Text
        row(3) = txtphone.Text
        dt.Rows.Add(row)
        Me.Close()
    End Sub
End Class