combox控件问题

Question

请问如何让Combo1直接显示本程序下cc.txt的数据cc.txt书写格式为
022,360 
021,482 
020,869
020,868
020,869
020,869
020,869
020,869
020,861
行也按照cc.txt的排序代码该如何写

Answer 1

'2货币
Open App.Path + "\ini\hb.ini" For Input As #1 ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, T1
   Combo1(2).AddItem (T1)
Loop
Close'3运输方式Open App.Path + "\ini\ysfs.ini" For Input As #1 ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, T1
   Combo1(4).AddItem (T1)
Loop
Close
'4价格条件Open App.Path + "\ini\jgtj.ini" For Input As #1 ' 打开文件。
Do While Not EOF(1)   ' 循环至文件尾。
   Line Input #1, T1
   Combo1(5).AddItem (T1)
Loop
Close
'5 装运口岸

Answer 2

可以利用API每次读取TXT文件的一行，然后依次加入到COMBBOX