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 都是常量
我靠，居然是这原因，谢谢了 结贴
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
vb中 现在我要把数据库里存储的一个附件的内容替换了，怎么做，只是替换我指定的位置，不是全部替换
请将问题说明白，存储字段格式，如果是Binary格式的比较麻烦，如果是字串，直接替换。最好不要进行指定位置替换� ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
挺繁琐，之前发的帖子，分值太低现在重发一个。欢迎各位大侠~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......
用VB编程读取短信,得到一大堆unicode编码,请教如何转换成文本
例如:读取短信后(华为900C或TC35i),串口得到如下数据:
+CMGL: 17,"REC UNREAD","8615007557713",,"10/03/30,09:37:15+32&qu ......
