[مساعدة]

مشروعك لم يعمل لدي لاختلاف الاصدار

الكود السابق كان على اساس لا يوجد قاعدة بيانات

بعد الاطلاع على أكواد المشروع
تفضل الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    'ExpatsTableAdapter.InsertQuery(ComboBox1.Text)
    'ExpatsTableAdapter.Fill(RecoordDataSet.Expats)

    Dim row As RecoordDataSet.ExpatsRow = Me.RecoordDataSet.Expats.NewRow
    row.ExpatsNames = ComboBox1.Text
    Me.RecoordDataSet.Expats.Rows.Add(row)
    ExpatsTableAdapter.Update(RecoordDataSet.Expats)

End Sub

ملاحظة في هذا الكود لن يتم الاحتفاظ على الخلايا التي تم تحديدها باللون الأخضر