+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مساعدة في كود برمجي (/showthread.php?tid=37149)
مساعدة في كود برمجي - imam_boune - 09-12-20
لدي (ComboBox) باسم (Emp_name)
[b]اريد لما اختار اسم الموظف من القائمة يظهر رقمه الوظيفي والقسم الذي يعمل فيه ووظيفته (كل واحد من هذه في تكس بوكس مستقل)[/b]
تنبيه : يوجد مثال في المرفق
من يساعدني في حل هذا ؟
وشكرا له مقدما
RE: مساعدة في كود برمجي - Osama_NY - 09-12-20
if Emp_name.selectedindex = 0
textbox1.text = "رقم الموظف"
textbox2.text = "القسم الذي يعمل فيه"
textbox3.text = "وظيفته "
اكتب هدا الكود في combobox
و هدا الكود في الفورم
1-=Emp_name.selectedindex
RE: مساعدة في كود برمجي - imam_boune - 09-12-20
للأسف لم يعمل
RE: مساعدة في كود برمجي - Osama_NY - 09-12-20
(09-12-20, 11:48 AM)imam_boune كتب : للأسف لم يعمل
كم يوجد لديك اسم في combobox
RE: مساعدة في كود برمجي - muharam - 09-12-20
(09-12-20, 10:54 AM)imam_boune كتب : لدي (ComboBox) باسم (Emp_name)
[b]اريد لما اختار اسم الموظف من القائمة يظهر رقمه الوظيفي والقسم الذي يعمل فيه ووظيفته (كل واحد من هذه في تكس بوكس مستقل)[/b]
تنبيه : يوجد مثال في المرفق
من يساعدني في حل هذا ؟
وشكرا له مقدما
لايوجد في المرفق سوى صورة بدون مشروع
الامر يتعلق يطربقة قراءتك للبيانات التي ملأت بها ComboBox واسماء الحقول وأنواعها
مثال
كود :
Dim da As OleDbDataAdabpter("Select * From table1 Where Emp_name='" & ComboBox.Text & "'",Con)
Dim dt As DataTable
da.Fill(dt)
TextBox2.Text = dt.Rows(0).Item("القسم")RE: مساعدة في كود برمجي - Jounior_P - 09-12-20
الافضل ترفق المثال للتعديل عليه