Question

vb高手求指教，如何让combo1控件中文本记录一一显示在text（index）.text中有谁知道不管用什么方法

自动的 如何让comb1中list中信息（好几条记录）显示到text（index）一一对应

Answer 1

假设你已经输入了i 条记录，同时也对应的画了i 个文本框：

Dim i As Integer
For i = 0 To Combo1.ListCount - 1
Text1(i).Text = Combo1.List(i)
Next

不知道是不是要的这个效果

追问

谢谢

Answer 2

'这么简单也要找高手啊
Dim i As Integer
For i = 0 To 100 '这里你看着办，我随便写的100
If Combo1.List(i) <> "" Then Text(i).Text = Combo1.List(i) 'List指Combo里的列表，List(i)是列表中的第i项，不为空的话，赋值到Text(i)里，你要有足够的Text对象
Next i

追问

谢谢

Answer 3

你说的自动是指什么？如果是选择下拉框的某一条文本记录后，自动显示在text中的话，用这个代码：
Private Sub Combo1_Click()
Text1(0).Text = Combo1.Text
End Sub

Answer 4

假设你输入我的记录，以及相应的画我文本框：

点心我作为整数

对于i = 0 Combo1.ListCount - 1

文本1（我）。 Combo1.List（I）

不知道这是否效果

Answer 5

for i = 0 to combo1.listcount-1
text(i).text=combo1.list(i)
next

追问

谢谢

Answer 6

没听明白你说什么意思。直接就用text(x).text=combo1.text 就可以呀。

追问

我是想combo1中的记录自动添加到text中不用 不用你的方法要点一下显示到对应的text中

追答

你加我QQ吧，我实在听不懂你说什么。