Question

vb6下拉框问题：我做一个小程序，vb6下拉框中的内容是读取excel文件中的，现在遇到一个问题：

我做一个小程序，vb6下拉框中的内容是读取excel文件中的，现在遇到一个问题：excel中的读取内容行数是变化的，数量不确定，如何能够使vb6下拉框的行数随着excel中行数的变化而变化（excel的行数不会超过10行），而不出现多余的空白行。读取excel的代码如下：
For i = 0 To 10
Combo1.List(i) = ExcelSheet.Cells(1 + i, 9)
Next

如上图，excel中有四行的话就会出现多行空格，很不好看。哪位大哥帮帮忙。

Answer 1

For i = 0 To 10
if trim(ExcelSheet.Cells(1 + i, 9))<>"" then Combo1.List(i) = ExcelSheet.Cells(1 + i, 9)
Next

这样就解决了，当excel中的数据为空就不加载到列表中，有数据在显示到列表中！
希望能帮到你

Answer 2

For i = 0 To 10
if ExcelSheet.Cells(1 + i, 9)="" then exit for
Combo1.List(i) = ExcelSheet.Cells(1 + i, 9)
Next

Answer 3

Combo1.Clear
For i = 1 To 10
t = ExcelSheet.Cells(i, 9).Value
If Len(t) > 0 Then Combo1.AddItem t
Next

Answer 4

Combo1.List(i)=Replace(Combo1.List(i),””,””)