请问DataGrid控件有关问题

请教DataGrid控件问题
Private   Sub   DataGrid1_RowColChange(LastRow   As   Variant,   ByVal   LastCol   As   Integer)

        '点击记录
        'DataGrid控件中的焦点变换
        '检查是否为空行
        goodsid   =   0
        goodsname   =   " "
       
        If   DataGrid1.Columns(0).Text   =   " "   Then
              Exit   Sub
        End   If
       
        goodsid   =   DataGrid1.Columns(0).Text
        goodsname   =   DataGrid1.Columns(1).Text
End   Sub

当DataGrid控件中无记录时，点击此控件，会出现‘7005’系统错误，想请问下应该怎样解决？

[解决办法]
加入一个判断，无记录则跳出此过程。
if datagrid.rows> 0 then
If DataGrid1.Columns(0).Text = " " Then
Exit Sub
End If
else
exit sub
end if
[解决办法]
我也出现你的情况，现在用on err解决的，这样就不报错了

Private Sub DataGrid1_Click()
On Error Resume Next

no = DataGrid1.Columns(0)
End Sub

[解决办法]
右键点代码，选弹出菜单中的中断-所有过程错误中断，然后看详细错误时调试，看停在哪行，把那段过程的代码贴出来。否则，真不知道你出错在哪里。