|
Major Member
|
引用:
|
作者mor8
Do While Not rs.Eof
strData = ""
For i = 0 to rs.Fields.Count - 1
strData = strData & Trim(rs(i).Value) & ","
Next i
Print #varFile, strData
Loop
|
你有迴圈,但是資料列沒有往下動,這段修改一下如下
Do While Not rs.Eof
strData = ""
For i = 0 to rs.Fields.Count - 1
strData = strData & Trim(rs(i).Value) & ","
Next i
Print #varFile, strData
rs.movenext
Loop |