+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=11381)
من ضمن خيارات اعمدة شبكة الكرايد خيار كومبو .. كيف نملؤه؟ - mh66 - 09-02-15
السلام عليكم
عندما ننشئ عمود ضمن شبكة الكرايد يعطينا خيارات من ضمنها خيار كومبو بوكس
كيف املئ هذا الكومبو الموجود ضمن الشبكة من بيانات جدول محدد
شكرا
RE: من ضمن خيارات اعمدة شبكة الكرايد خيار كومبو .. كيف نملؤه؟ - سعود - 09-02-15
عادي جدا اعتبره كانه combobox مستقل مثلا
كود :
Me.tn.DataSource = dt
Me.tn.DisplayMember = "tn"المثال مرفق
RE: من ضمن خيارات اعمدة شبكة الكرايد خيار كومبو .. كيف نملؤه؟ - mh66 - 10-02-15
ماشاء الله عنك اخ سعود
زادك الله علما
معليش اتحملني شوي
انا املئ الكومبو بهذه الطريقة
'***************************************************************
'تحميل كومبو الأقسام الموجودة
Me.Cursor = Cursors.WaitCursor
If Con.State <> ConnectionState.Open Then
GeneralConnection()
End If
If Con.State = ConnectionState.Open Then
Sql = Nothing
Sql = "SELECT na FROM NQsm"
Dim Cmd1 As New SqlCommand(Sql, Con)
Dim DR1 As SqlDataReader = Nothing
DR1 = Cmd1.ExecuteReader
Do While DR1.Read()
ComboBox1.Items.Add(DR1.Item("na"))
Application.DoEvents()
Loop
DR1.Close()
Cmd1.Cancel()
Con.Close()
Me.Cursor = Cursors.Default
End If
'***************************************************************
ماذا اضع بدل هذا السطر
ComboBox1.Items.Add(DR1.Item("na"))
اذا كان اسم شبكة الكرايد dg1
واريد ملئ العمود السادس
شكرا
RE: من ضمن خيارات اعمدة شبكة الكرايد خيار كومبو .. كيف نملؤه؟ - سعود - 10-02-15
اخي الكريم قلت لك تعامل معه وكانه كومبو مستقلة ونت كتبت الحل .. فين المشكلة؟
كود :
Public Class Form2
Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb")
Dim dt As New DataTable
Dim cm As New OleDb.OleDbCommand("select tn from tb", con)
Dim dr As OleDb.OleDbDataReader
Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If con.State = ConnectionState.Closed Then
con.Open()
End If
dr = cm.ExecuteReader
If dr.HasRows Then
Do While dr.Read
tn.Items.Add(dr(0))
Loop
dr.Close()
End If
End Sub
End Classلاحظت شي وهو انك كتبت الاكواد ضمن شرط انفتاح الاتصال
كود :
If Con.State = ConnectionState.Open Thenكود :
If con.State = ConnectionState.Closed Then
con.Open()
End IfRE: من ضمن خيارات اعمدة شبكة الكرايد خيار كومبو .. كيف نملؤه؟ - mh66 - 10-02-15
شكرا جزيلا على التوضيح
وفقك الله