事件 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
应跳出 这个过程 而不执行 后面的代码??
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
应跳出 这个过程 而不执行 后面的代码??
解决方案 »
- 请专家指教:Inet1.OpenURL 实时错误 424
- 如何监视所有用户间所有文件的变化,删除,新建,重命名等
- 程序运行时,如果在鼠标点击时暂停程序运行????
- 谁有 Programming Visual Basic 6 中文版电子书?
- 有没有什么媒体播放控件(WMP兼容的媒体格式)可以获得音视频文件播放的精确到毫秒的时间(或帧数)?
- 关于屏幕抓图的问题
- OLE与数据记录的问题(在线等待,散分)
- 有关于触发器的紧急问题?在线等待???
- AMOON、吴文智!!!
- 在vb中,用程序如何实现创建一个EXCEL和ACCESS表?
- 有人用VB连过postgreSQL,和mySql数据库吗?求代码!
- 表单上有很多Label,上面有大片的文字,怎么让用户点击表单上任何地方都可以关闭表单?
例如 datagrid 用来 显示 满足条件的 记录
如果没有 这时 datagrid 上面没有数据 也就是 datagrid 的datasource 属性 为Nothing
这时 双击 datagird 时 也执行代码 然后报错 !!
我搞不懂呀 所以请 高手来 修改修改
是不是在双击 前 判断 datagrid 的datasouce 是不是 nothing (代码该怎么写)
郁闷呀!11111
例如 datagrid 用来 显示 满足条件的 记录
如果没有 这时查找后没有符合条件的 那么 datagrid 上面就不会数据 也就是 datagrid 的datasource 属性 为Nothing
这时 双击 datagird 时 也执行代码 然后报错 !!
我搞不懂呀 所以请 高手来 修改修改
是不是在双击 前 判断 datagrid 的datasouce 是不是 nothing (代码该怎么写)
郁闷呀!11111