05-08-23, 10:33 PM
لازم تفاصيل اكثر لاني جربت مثال بسيط داتاتيبل وقت التشغيل ولم اجد اي مشكلة مماذكرت..
Module:
Form1:
Add:
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
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
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
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

