[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

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

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

تحياتى لك

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