[asemshahen5]

المثال بعد التعديل :

[elgokr]

بعد الاطلاع على السورس فاليك التالى

عند الاسطر التالي من الكو لاضافة بنك

كود :

       CmbBank_user_id.ValueMember = "user_id"
       CmbBank_user_id.DataSource = dt_user_inbank
       CmbBank_user_id.DisplayMember = "user_name"
       CmbBank_user_id.SelectedIndex = -1

يمكنك استبداله بالكود التالى

كود :

       For ii As Integer = 0 To dt_user_inbank.Rows.Count - 1
           CmbBank_user_id.Items.Add(dt_user_inbank(ii)(1) & " - " & dt_user_inbank(ii)(1))
       Next

سيكون الناتج عند العرض بهذا الشكل

PHP كود :

1 - مستخدم1
3 - مستخدم3 


وعند تنفيذ الكود بالاسفل وهو 

كود :

       dt_bank.Rows(pos_bank).Item("bank_user_id") = Val(CmbBank_user_id.Text)

سيكون الناتج كما لو كتبت

كود :

       dt_bank.Rows(pos_bank).Item("bank_user_id") = 1

1 تعنى المستخدم1 اى اخد الرقم الاول فى بداية القيمة للكمبو بوكس

طيب الطريقة الثانية بترك الاسطر التالية

كود :

       CmbBank_user_id.ValueMember = "user_id" 'يعمل خطا حيث لا يولد كود جديد و هو تحت
       CmbBank_user_id.DataSource = dt_user_inbank
       CmbBank_user_id.DisplayMember = "user_name"
       CmbBank_user_id.SelectedIndex = -1

هنا ستحتاج التعديل هنا

كود :

       dt_bank.Rows(pos_bank).Item("bank_user_id") = Val(CmbBank_user_id.Text)

ليصبح بهذا الشكل

كود :

       Dim ii As Integer = load_id_user_bank(CmbBank_user_id.SelectedItem)
       dt_bank.Rows(pos_bank).Item("bank_user_id") = ii

ولكى يكتمل التعديل ستحتاج الى عمل التالى

افتح ملف Module2_bank

وانشاء كلاً من التالى

كود :

   Public Function load_id_user_bank(ByVal name As String)
       dt_iduser_inbank.Clear()
       da_iduser_inbank = New SqlDataAdapter("select user_id from user7 where user_name ='" & name & "'", Con)
       da_iduser_inbank.Fill(dt_iduser_inbank)
       Return dt_iduser_inbank(0)(0)
   End Function

وايضاً

كود :

   Public dt_iduser_inbank As New DataTable
   Public da_iduser_inbank As New SqlDataAdapter

الان لديك طريقتين لاتمام تسجيل رقم المستخدم

اتمنى ان تكون الامور مبسطة والشرح واضح

تحياتى لك

وتمنياتى لك التوفيق

[vb2010]

شكرا 

لكن لم يحفظ بالطريقه الثانيه و يظهر exception

[asemshahen5]

الرد رقم 11عدلت لك المثال و أصبح يحفظ راجع

[vb2010]

شكرا [b]asemshahen5 [/b]
[b]طريقتك نجحت 100%[/b]
[b]جربت انسخ الاكواد بعد قراتها و لكن اعطى error و وضع خط ازرق تحت جمله select [/b]

[b] [/b]

[asemshahen5]

عدل الكود التالي في مديول يوزر

الى

Public Sub load_user(Query As String)

dt_user.Clear()

da_user = New SqlDataAdapter(Query, Con)

da_user.Fill(dt_user)

End Sub

[vb2010]

الحمد لله 
لقد نجحت عندى طلب صغير ممكن وسيله تواصل بحضرتك [b]asemshahen5 ايميل [/b]

[vb2010]

عدلت فى جمله select 



فحدث exception  

[asemshahen5]

التعديل الذي قمت به في Module_user

انظر الى الصور جيدا .

عدل في Module_user

[elgokr]

(04-11-18, 12:02 AM)vb2010 كتب : عدلت فى جمله select 



فحدث exception  

الخطاء هنا بسبب كونك تستخدم اكثر من جدول فى الاستعلام

حيث ان طريقة حفظ التعديل من خلال جملة Update تدعم جدول واحد فقط

لذلك يجب استرجاع كود الاستعلام الى جدول واحد فقط

تحياتى لك

وتمنياتى لك التوفيق