如何将文本序列读到COMBO1中
文本数据:
3
2
1
居民
2
经营
3
工业


如何将以上的居民,经营,和工业加到combo列表中,而1,2,3作为直值

我这样写,读文件后
Dim s As String, ls_Content() As String
Open App.Path & "\ss.sys " For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ls_Content = Split(s, vbCrLf)


For i = 2 To Val(ls_Content(0)) * 2 + 3
faka_w.Combo2.AddItem ls_Content(5)
faka_w.Combo2.ItemData(faka_w.Combo2.NewIndex) = ls_Content(4)
faka_w.Combo2.ListIndex = 0
next i

可是这样 i的增量就为1,不为2,我需要的是2,就不会错了

[解决办法]
还没看懂lz就自己搞定了...

进来来蹭点分
[解决办法]
楼主就是神~~
[解决办法]
哈哈，神楼，只能蹭点分了～
[解决办法]
我也来蹭点分
[解决办法]
大家都蹭，我也却之不恭了
[解决办法]
此分一定要蹭^_^
[解决办法]
看不懂你说什么