(بسم اللـــــــــــــــــــــــــــــــــــــه الرحمن الرحيم)
Sub FillObjectUn(ByVal OBJT As Object, ByVal TableName As String, ByVal CollNumber As Int32) OBJT.Items.Clear() OBJT.DataSource = DS.Tables(TableName) OBJT.DisplayMember = DS.Tables(TableName).Columns(CollNumber).ColumnName End Sub FillObjectUn(ComboBox1, "Products", 1)
عندما اضغط الزر فالمرة الأولى يظهر البيانات بشكل سليم...
ولكن عندما أضغط من جديد يظهر لي الخطأ على هذا السطر ... :blink:
أرجو مساعدتي ..
""""""""توكلت على الله"""""""""
OBJT.Items.Clear()
[code]
