事件 datagrid_dbclickDim j As Integer
j = DataGrid2.RowContaining(Y)
       If (j <> -1) Then
         DataGrid2.Row = DataGrid2.RowContaining(Y)          '取得行值
        If (DataGrid2.Columns(0).Text = "") Then         '点击空行无效
              SerKey = -1
              Exit Sub
        End If
后 面还有一些代码
  ................................
这段代码是不是 
当 datagrid 的datasource 为nothing
双击 datagrid 
应跳出 这个过程 而不执行 后面的代码??

解决方案 »

  1.   

    应该是双击 datagrid 时,如果第0条记录为空,则跳出该过程
      

  2.   

    ???你不可能点到datagrid的空行,它所有的行全部都是recordset,如果为空,都不会显示出来了
      

  3.   

    我知道是 recordset 呀
    例如 datagrid  用来 显示 满足条件的 记录
    如果没有 这时 datagrid 上面没有数据 也就是 datagrid 的datasource 属性 为Nothing
    这时 双击 datagird 时 也执行代码   然后报错 !!
    我搞不懂呀 所以请 高手来 修改修改
    是不是在双击 前 判断 datagrid 的datasouce 是不是 nothing (代码该怎么写)
    郁闷呀!11111
      

  4.   

    我知道是 recordset 呀
    例如 datagrid  用来 显示 满足条件的 记录
    如果没有 这时查找后没有符合条件的 那么 datagrid 上面就不会数据 也就是 datagrid 的datasource 属性 为Nothing
     这时 双击 datagird 时 也执行代码   然后报错 !!
    我搞不懂呀 所以请 高手来 修改修改
    是不是在双击 前 判断 datagrid 的datasouce 是不是 nothing (代码该怎么写)
    郁闷呀!11111