25-04-20, 12:00 PM
السلام عليكم ورحمة الله وبركاته
اعمل على برنامج بالفيجوال بيسك 2013 مع قاعدة بيانات اكسيس وعند عمل حفظ تظهر هذه الرسالة
مع العلم ان الحقل المذكور هو المفتاح الاساسي في الجدول كما في الصورة التالية:-
اعمل على برنامج بالفيجوال بيسك 2013 مع قاعدة بيانات اكسيس وعند عمل حفظ تظهر هذه الرسالة
كود :
An unhandled exception of type 'System.ArgumentException' occurred in System.Data.dll
Additional information: Column 'FixID' does not belong to table .
مع العلم ان الحقل المذكور هو المفتاح الاساسي في الجدول كما في الصورة التالية:-
وكود الاضافة المستخدم هو كالتالي:-
كود :
Dev_FixDT.Rows.Add()
Dim last As Integer = Dev_FixDT.Rows.Count - 1
Dev_FixDT.Rows(last).Item("FixID") = Val(FixID.Text)
Dev_FixDT.Rows(last).Item("cus_name") = cus_name.Text
Dev_FixDT.Rows(last).Item("dev_rank") = dev_rank.Text
Dev_FixDT.Rows(last).Item("dev_type") = dev_type.Text
Dev_FixDT.Rows(last).Item("get_date") = get_date.Value
Dev_FixDT.Rows(last).Item("get_time") = TimeOfDay.ToString("hh:mm:ss tt")
Dev_FixDT.Rows(last).Item("coastt") = coastt.Text
Dev_FixDT.Rows(last).Item("dev_serial") = dev_serial.Text
Dev_FixDT.Rows(last).Item("dev_problem") = dev_problem.Text
Dev_FixDT.Rows(last).Item("Dev_attached") = Dev_attached.Text
Dev_FixDT.Rows(last).Item("cus_phone") = cus_phone.Text
Dev_FixDT.Rows(last).Item("notee") = notee.Text
Dev_FixDT.Rows(last).Item("dev_status") = dev_status.Text
Dev_FixDT.Rows(last).Item("chk_note1") = chk_note1.Checked
Dev_FixDT.Rows(last).Item("chk_note2") = chk_note2.Checked
Dim Save As New OleDbCommandBuilder(Dev_FixDA)
Dev_FixDA.Update(Dev_FixDT)
Dev_FixDT.AcceptChanges()
MsgBox("تم الحفط بنجاح", MsgBoxStyle.Information, "تأكيد الحفط")
' load table to refresh data
Load_Dev_Fix()
فما حل هذه المشكلة؟؟؟