VB的一个问题 在线等 - VB / 基础类
listview的内容输出至excel中的一段代码
RowCnt = 2
ColCnt = 1
For i = 1 To Form6.listview1.ListItems.Count
For j = 1 To 8
xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(i).SubItems(j)
ColCnt = ColCnt + 1
Next j
ColCnt = 1
RowCnt = RowCnt + 1
Next i
i =1时能跑，但只要到最外面的for循环时，也就是i的值从1变到2时，就会报无效的属性值
各位帮忙看看
顶上去
报错会不会是针对xlSheet.Cells呢
单步调试，检查这句
xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(i).SubItems(j)
i,j的值是否有越界。
xlSheet.Cells(RowCnt, ColCnt).Value = Form6.listview1.ListItems(1).SubItems(8)
到此都是可以的，但再按f8就跳到错误了
xlSheet.Cells(RowCnt, ColCnt).Value 怎么会报错呢？ RowCnt ColCnt 都是常量
我靠，居然是这原因，谢谢了 结贴
相关问答：
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
求个vb中的sql语句的写法，次sql语句的用法是分页程序
我写的如下：其中A是用来接收每页显示的记录的条数，B是用来接收显示的当前的页面.
sqltext="select top A * from log where id not in(select top ( ......
