vb MSFlexGrid1.Row 实时错误'30009'Row数值无效
代码如下：
Private Sub MSFlexGrid1_SelChange()
If MSFlexGrid1.Rows = 1 Then Exit Sub
If MSFlexGrid1.Row = 0 Then Exit Sub
grid_row = MSFlexGrid1.Row
grid_col = MSFlexGrid1.Col
MSFlexGrid1.Row = grid_row_old
MSFlexGrid1.Col = 0
Set MSFlexGrid1.CellPicture = LoadPicture()
MSFlexGrid1.Row = grid_row
MSFlexGrid1.Col = 0
Set MSFlexGrid1.CellPicture = LoadPicture("c:\gddmt\p0.bmp") 'ICO")
MSFlexGrid1.Col = grid_col
grid_row_old = MSFlexGrid1.Row
End Sub
红色的为报错的 程序要实现的是查询后显示在MSFlexGrid1 当没有条件查询后显示在MSFlexGrid1
然后再有条件查询显示 显示后点击MSFlexGrid1里面的值就会报 “实时错误'30009'Row数值无效”
求各位帮个忙
看一下报警时grid_row_old的值，鼠标指在其上就可以看到
grid_row_old的值是第一次无条件查询时的row值
实际看，你的代码如果有问题，这个值可能可你想的不一样，看是否非法，或大于总行数
设计错误。
重新查询后行数变化，就不能使用旧的行号。
两次查询的结果不一样，记录条数也不一样。
LZ的代码只能针对同一次查询的。
VB code:
'注意,grid_row_old需要在你的查询变化的时候重置一下,比如赋�
相关问答：
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
现在有个xml文件是<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xm ......
form1中有text1-8， 和command1
text8中为程序代码（生成窗体为form2（已做好））
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题
......
各位高手，小弟最近碰到一个问题：原先写的程序大概的思路是：首先webbrowser打开网址，网址显示后，点击网址上的某一个连接，当webbrowser检测到网址已经连接到想要的地址时候就开始下载文件，当用IE6的时候下� ......
