恭喜,你发布的帖子
发布于 2025-02-18 22:46:48
1楼
有可能是遍历和循环出问题了?没时间测试,可以尝试:
①遍历前赋值列数,不再循环赋值列数
grid.Cols = rs.Fields.Count
②for循环中赋值
If IsNull(field.Value) Then
grid.TextMatrix(i, j) = ""
Else
grid.TextMatrix(i, j) = field.Value
End If
③遍历后增加验证
MsgBox "总行数: " & rs.RecordCount
请填写推广理由:
分享
只看
楼主