نمایش محتوای چند فیلد در کمبوباکس

[alicomputer]

با سلام
من برای نمایش یک فیلد از بانک در کمبوباکس از کد زیر استفاده می کند

On Error Resume Next
If Adodc5.Recordset.RecordCount <> 0 Then
Adodc5.Recordset.MoveLast
a1 = Adodc5.Recordset.RecordCount
Adodc5.Recordset.MoveFirst
Combo1.Clear
For X = 1 To a1
Combo1.AddItem (Adodc5.Recordset.Fields("Doreh1"))
Adodc5.Recordset.MoveNext
Next
End If
حال می خوام به طور همزمان محتوای دو یا چند تا از فیلد را در کمبو نمایش بدهم، حالا هر کی می تونه این کار را انجام بده به من کمک کنـــــــه و کدش را برام بنویسه!
با تشکر

[m_vb1386]

On Error Resume Next
If Adodc5.Recordset.RecordCount <> 0 Then
Adodc5.Recordset.MoveLast
a1 = Adodc5.Recordset.RecordCount
Adodc5.Recordset.MoveFirst
Combo1.Clear
For X = 1 To a1
Combo1.AddItem (Adodc5.Recordset.Fields("Doreh1")) & (Adodc5.Recordset.Fields("Doreh2")) & (Adodc5.Recordset.Fields("Doreh3"))
Adodc5.Recordset.MoveNext
Next
End If
بايد يك همچين چيزي بشه البته براي راحتي كار ميتونيد مقادير فيلدهاتون رو بريزين تو چند تا متغير از نوع string و بعد اونها رو بصورت رشته اي با هم جمع كنيد

[hamed aj]

با سلام

دوست عزیز؛ نظر من اینه که شما از کنترل DataCombo استفاده کنید و اون رو به فیلد مورد نظرتون Bind کنید. با اینکار دیگه نیازی به شمارش تعداد رکورد ها و . . . ندارید





Set Form1.DataCombo1.RowSource = Adodc1
Form1.DataCombo1.ListField = "Doreh1"
Form1.DataCombo1.Refresh



موفق باشید