報錯的代碼為下圖。。
因為資料庫中這條資料的下機日期這一列是沒有值的，也就是Null 。這段代碼翻譯過來就是 .TextMatrix(.Rows - 1 , 4 ) =Null。而VB6中是不能給變量指派NULL的。是以會出現無效使用NUll的錯誤。
要解決這個錯誤，一種方法是寫一個判斷。比如.TextMatrix(.Row - 1, 4)=isnull(mrc.Fields(8)),"",mrc.Fields(8) 。
還有一種比較簡單的就是在後面加一個空字元串，這樣當變量為NULL時就會把空字元串賦過去：.TextMatrix(.Row - 1, 4)=Trim(mrc.Fields(8))&""
搞定。。謝謝各位觀看。。