Open App.Path + "\ini\jgtj.ini" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, SQL
TXTJG.AddItem Trim(SQL)
Loop
Close
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, SQL
TXTJG.AddItem Trim(SQL)
Loop
Close
调试欢乐多
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, SQL
TXTJG.AddItem Trim(SQL)
Loop
Close