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需要在你的查询变化的时候重置一下,比如赋�
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
我想把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文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
系统在多台电脑上运行，就在其中一台电脑上产生”内存溢出“。
每台电脑操作系统 配置都一样的。。请问是什么原因？
(1)用了设计不完善的控件，控件本身有问题，或者不恰当地使用了api函数。
(2)无限的 ......
