+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ترقيم التقائي حسب ما اختاره من الكومبو (/showthread.php?tid=25023)
ترقيم التقائي حسب ما اختاره من الكومبو - حافظ حافظ - 20-05-18
السلام عليكم.ايام و ليالي رمضانية مباركة.اخواني لو سمحتو كيف يمكن لما اختار بالفورم 2 من الكومبوبكس مثلا الرقم 1 و اضغط على زر add يطلع مباشرة بالتاكست بوكس 1 الرقم يلي موجود بقاعدة بيانات Table1 و اسمو First_Record
لمل اختار من الكمبو الارقام حسب nu_calling يطلع بالتاكست firstrecord تبعها.شكرا
RE: ترقيم التقائي حسب ما اختاره من الكومبو - سعود - 20-05-18
وعليكم السلام
شوف اللي اضفت للمشروع
متغير على مستوي الفورم
PHP كود :
Dim dt As DataTable
إجراء مستقل لتحميل البيانات للكومبوبوكس
PHP كود :
Private Sub gd()
Using myconnection As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DATAMMM.accdb")
Using da As New OleDbDataAdapter("select * from Table1", myconnection)
dt = New DataTable
da.Fill(dt)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "NU_CALLING"
End Using
End Using
End Sub
عند حدث الفورم لود
PHP كود :
gd()
PHP كود :
If ComboBox1.Items.Count = 0 Then Exit Sub
If dt.Rows.Count = 0 Then Exit Sub
TextBox1.Text = dt(ComboBox1.SelectedIndex)("first_record")
RE: ترقيم التقائي حسب ما اختاره من الكومبو - حافظ حافظ - 20-05-18
اجمل تقييم لاخي الرائع سعود.الهي يبارك بعمرك وهو المطلوب بالضبط الف شكر