قله بلند
یک شنبه 18 خرداد 1393, 18:28 عصر
سلام دوستان
من در ابتدا جستجو کردم ولی مشکلم حل نشد.
من با این کد می تونم کمبوباکس (حاوی ستون دوم از لیست باکس) و لیست باکس رو (حاوی دو ستون) پر کنم.
و کمبوباکس رو هم راست چین کنم.
حالا چه طوری محتویات درون کمبوباکس رو بخونم (در حالیکه راست چین هستند) و به جای ستون دوم لیست باکس قرار بدم تا ستون دوم لیست باکس به این طریق راست چین بشه؟
Do Until RS.EOF
Me.Combo132.AddItem RS.Fields("T_EW_1").Value
Me.Combo132.TextAlign = 3
strItem = RS.Fields("Main_EW").Value & ";" _
& RS.Fields("T_EW_1").Value
Me.List122.AddItem strItem ' Row Source Type must be Value List
RS.MoveNext
Loop
من در ابتدا جستجو کردم ولی مشکلم حل نشد.
من با این کد می تونم کمبوباکس (حاوی ستون دوم از لیست باکس) و لیست باکس رو (حاوی دو ستون) پر کنم.
و کمبوباکس رو هم راست چین کنم.
حالا چه طوری محتویات درون کمبوباکس رو بخونم (در حالیکه راست چین هستند) و به جای ستون دوم لیست باکس قرار بدم تا ستون دوم لیست باکس به این طریق راست چین بشه؟
Do Until RS.EOF
Me.Combo132.AddItem RS.Fields("T_EW_1").Value
Me.Combo132.TextAlign = 3
strItem = RS.Fields("Main_EW").Value & ";" _
& RS.Fields("T_EW_1").Value
Me.List122.AddItem strItem ' Row Source Type must be Value List
RS.MoveNext
Loop