瀏覽單個文章
mor8
Major Member
 

加入日期: Aug 2005
文章: 237
不好意思在請教一個問題
我將程式碼改成下面(紅色字的部分)
希望輸出成純文字檔
不是之前用逗號來區分
程式一遇到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
舊 2006-05-08, 11:12 AM #10
回應時引用此文章
mor8離線中