12/06/2012, 00:46
arkadaşlar forumda baya aradım ancak aradığımı bulamadım .. vb6 da Access teki gibi 2 sütunlu (biri sayısal id diğeri text değeri olan bir comboBox nasıl yapılır aşağıdaki gibi bir şeyler denedim akşamdan beri denemeler yapıyorum bir türlü başaramadım ..
aslında şu anda bir çalışma içinde değilim işlerimi acceste halldiyorum ancak vb de bu özelliği daha önce hiç kullanmadığımı fark ettim ve nasıl yapıldığınıda baya merak ettim
Private Sub operator_Change()
Set operator_dolum = vt.OpenRecordset("SELECT makine_operator.operator, makine_operator.operator_ismi FROM makine_operator;")
If operator_dolum.AbsolutePosition <> -1 Then
operator_dolum.MoveFirst
Do Until operator_dolum.EOF
'operator.ColumnCount = 20
'operator.ListWidth = "6 cm" 'Total genislik
'operator.ColumnWidths = "2 cm;4 cm" 'sütun genisligi
'operator.AddItem operator_dolum!operator_ismi, operator_dolum!operator
'operator.List(0, 1) = makine_operator!operator
'operator.AddItem operator_dolum!operator_ismi
operator_dolum.MoveNext
Loop
operator_dolum.Close
End If
End Sub
yardımlarınız için şimdiden teşekkür ederim..
aslında şu anda bir çalışma içinde değilim işlerimi acceste halldiyorum ancak vb de bu özelliği daha önce hiç kullanmadığımı fark ettim ve nasıl yapıldığınıda baya merak ettim
Private Sub operator_Change()
Set operator_dolum = vt.OpenRecordset("SELECT makine_operator.operator, makine_operator.operator_ismi FROM makine_operator;")
If operator_dolum.AbsolutePosition <> -1 Then
operator_dolum.MoveFirst
Do Until operator_dolum.EOF
'operator.ColumnCount = 20
'operator.ListWidth = "6 cm" 'Total genislik
'operator.ColumnWidths = "2 cm;4 cm" 'sütun genisligi
'operator.AddItem operator_dolum!operator_ismi, operator_dolum!operator
'operator.List(0, 1) = makine_operator!operator
'operator.AddItem operator_dolum!operator_ismi
operator_dolum.MoveNext
Loop
operator_dolum.Close
End If
End Sub
yardımlarınız için şimdiden teşekkür ederim..