循环填充

Question

'看了下你的程序，老实说--有点乱，也没声明， lineqty？这个又是哪里来的，你可以好好修改下
'另外说下你的问题
'如果你的程序能够运行，并且能够取出数据，只不过数据相同
'那么你看下line.dll中每行数据间是不是以Tab键隔开？还是说只是几个(2)空格

Answer 1

Dim strLine As String, i As LongOpen App.Path & "\line.dll" For Binary As #1
Do Until EOF(1)
    Line Input #1, strLine    If Left(strLine, 3) = line1.Text Then
            MSFlexGrid1.TextMatrix(i + 1, 0) = Left(strLine, 3)
            MSFlexGrid1.TextMatrix(i + 1, 1) = Mid(strLine, 5)
            i = i + 1
  End If
Loop
Close #1