Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
panduan = DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark)
End Sub
VB程序运行时发现错误9 下标越界。下面是查询代码 好像是第三句代码错了 如何修改呢？
答案:2 悬赏:30 手机版
解决时间 2021-12-22 12:19
- 提问者网友：酱爆肉
- 2021-12-21 19:22
最佳答案
- 五星知识达人网友：长青诗
- 2022-01-22 06:24
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
panduan = DataGrid1.Columns(6).CellValue(DataGrid1.Bookmark)
End Sub
book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)
panduan = DataGrid1.Columns(6).CellValue(DataGrid1.Bookmark)
End Sub
全部回答
- 1楼网友：你可爱的野爹
- 2022-01-22 07:55
option base 1
那这句放在代码最开头,也就是通用处
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯