VB 6 Combo box with value and text
1. Add component Microsoft Forms 2.0
2.
EngMatchFrm.CmbEngComponent.Clear
EngMatchFrm.CmbEngComponent.ColumnCount = 2
EngMatchFrm.CmbEngComponent.ColumnWidths = "0 in; 2 in"
Dim i As Integer
i = 0
While Not rstComp.EOF
EngMatchFrm.CmbEngComponent.AddItem rstComp!BusinessUnitID
EngMatchFrm.CmbEngComponent.List(i, 1) = rstComp!BUName
i = i + 1
rstComp.MoveNext
Wend
1. Add component Microsoft Forms 2.0
2.
EngMatchFrm.CmbEngComponent.Clear
EngMatchFrm.CmbEngComponent.ColumnCount = 2
EngMatchFrm.CmbEngComponent.ColumnWidths = "0 in; 2 in"
Dim i As Integer
i = 0
While Not rstComp.EOF
EngMatchFrm.CmbEngComponent.AddItem rstComp!BusinessUnitID
EngMatchFrm.CmbEngComponent.List(i, 1) = rstComp!BUName
i = i + 1
rstComp.MoveNext
Wend
Comments
Post a Comment