|
Major Member
|
不好意思在請教一個問題
我將程式碼改成下面(紅色字的部分)
希望輸出成純文字檔
不是之前用逗號來區分
程式一遇到Null值無法轉出,就出現Null錯誤警告,
請問如何解決Null的問題
謝謝
LenArr = Array(5,40,30,30,60,15,15,10,15,24,24) '此句是新增加的,資料庫每一欄位的長度
Do While Not rs.EOF
strData = ""
For i = 0 To rs.Fields.Count - 1
strData = strData & String((LenArr(i) - Len(Trim(rs(i).Value))), " ") & Trim(rs(i).Value) '此句是修改的
Next i
Print #varFile, strData
rs.movenext
Loop
|