报错的代码为下图。。
因为数据库中这条数据的下机日期这一列是没有值的,也就是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))&""
搞定。。谢谢各位观看。。