本人使用MSFlexGrid控件创建列表框输出信息,
定义如下:
Dim MSFlexGrid1 As MSFlexGrid
With MSFlexGrid1
.Cols = 8
.Rows = 6
.FixedCols = 0
.TextMatrix(0, 0) = "借书证编号"
.TextMatrix(0, 1) = "读者姓名"
.TextMatrix(0, 2) = "图书编号"
.TextMatrix(0, 3) = "书名"
.TextMatrix(0, 4) = "价格"
.TextMatrix(0, 5) = "类别"
.TextMatrix(0, 6) = "出版社"
.TextMatrix(0, 7) = "借出日期"
End With
运行的时候报错:
对象变量或with变量未设置,光标停在.cols行
定义如下:
Dim MSFlexGrid1 As MSFlexGrid
With MSFlexGrid1
.Cols = 8
.Rows = 6
.FixedCols = 0
.TextMatrix(0, 0) = "借书证编号"
.TextMatrix(0, 1) = "读者姓名"
.TextMatrix(0, 2) = "图书编号"
.TextMatrix(0, 3) = "书名"
.TextMatrix(0, 4) = "价格"
.TextMatrix(0, 5) = "类别"
.TextMatrix(0, 6) = "出版社"
.TextMatrix(0, 7) = "借出日期"
End With
运行的时候报错:
对象变量或with变量未设置,光标停在.cols行
解决方案 »
- CDO可以连接microsoft exchange server吗?
- 求助 如何在一个排好大小的10个随机函数中加入令一个数 也按照从小到大排序 在线等 跪求
- 用VB实现FTP上传、下载?
- vb6能否访问和操作MS SQL Server 2000数据库(如数据库*.mdf),能给个完整的框架例子吗?谢谢!
- 请问怎样在DataGrid中添加一列CheckBox列,实现复选删除功能?
- 有关图片处理的问题!---急急急
- (急求)有什么最简单的方法获得屏幕分辨率大小?
- 如何创建一个临时表的问题?
- 请教:关于recordset.filter的问题,大侠帮忙
- 触发器的问题(100分)在线等待
- 高手,请教一下怎么在TextBox中使得文本的显示按照你的预定的格式?
- 如何发布我的数据库?
这句多余,去掉就好了With MSFlexGrid1
.Cols = 8
.Rows = 6
.FixedCols = 0
.TextMatrix(0, 0) = "借书证编号"
.TextMatrix(0, 1) = "读者姓名"
.TextMatrix(0, 2) = "图书编号"
.TextMatrix(0, 3) = "书名"
.TextMatrix(0, 4) = "价格"
.TextMatrix(0, 5) = "类别"
.TextMatrix(0, 6) = "出版社"
.TextMatrix(0, 7) = "借出日期"
End With
不过感觉好像有点悬,没有实体,怎么能赋值?或者用Set MyGrid = New MSFlexGrid,或者老老实实的方一个控件
可否留个email地址,有问题请教你,我初学vb