如何在不影响当前在组合框中写入的内容的情况下重新填充组合框项目列表?
我目前的代码看起来有点像:
Private Sub ComboBox1_DropButtonClick()
Dim v As Variant
Dim selText As String
selText = ComboBox1.selText
Dim i As Integer
For i = 0 To ComboBox1.ListCount - 1
ComboBox1.RemoveItem (0)
Next i
v = Call CreateList(
我想改变我的组合框选择的值为相同的值,在文本框中的按钮单击。例如,如果我将"IT公司“写到文本框中,我希望将组合框选择的值更改为与文本框相同的值,也就是"IT公司”。
我试过这样的方法:
private sub button_click()
Dim i As Long
Dim s As Long
with myCombo
For i = 0 To .ListCount
If .ItemData(i) = Me.txtBox.value Then
s = i
End If
Next i
Me.myCombo.Value = s
end with
但是我的组合框最后没有选择
Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
ListView2.Items.Clear()
Dim curSelectionCombobox As String = ComboBox2.SelectedItem.ToString()
ListView2.Items.Add(listitm)
End Sub
基本上,这就是我
如何在Excel VBA中设置activeX组合框的显示项数?我尝试了这个代码。无论我在第二行中设置的数字是多少,msgbox都会显示默认的8项。
Private Sub ComboBox1_Change()
ComboBox1.ListRows = 4 'This should work, but it does not
MsgBox (ComboBox1.ListCount) 'It always equals 8
End Sub
我正在创建两个组合框,并插入一些元素,如铃木,本田,activa到第一个组合和雷诺,Indica,奔驰到第二个组合框,我也创建了第三个组合,这是没有插入。我的问题是什么时候我将选择一个项目在第一,例如,如果我选择铃木在第一个组合和雷诺在第二,这两个铃木和雷诺应该出现在第三个组合框中,如果我改变了activa在第一和Indica在第二,然后第三个组合应该显示activa和Indica。像这样,第三个组合框应该动态地从第一个和第二个中获取所选的项目。
请帮帮我,谢谢和问候,-Chandrashekara Y D。
因此,我正在处理Delphi2009中的一个新项目,可以拖放到表单中用于访问数据的默认组件包括SQLConnection、DataSource和SQLQuery。如果我向查询组件添加一个简单的select,比如:
select name from customers
然后将一个DBComboBox放到表单上,并将其与DataSource链接起来,我在组合框中得到一条记录。在使用Google半个小时后,找出我做错了什么,看起来你必须手动添加一些代码到你的项目中,这会遍历数据集并将所有记录添加到下拉框中。类似于:
while not SQLQuery.eof do
begin
DBComboB