收录日期:2019/04/24 08:26:50 时间:2016/05/24 10:42:39 标签:VB基础类
如题。
Private Sub cmdDel_Click()
 If rs6.RecordCount = 0 Then
    Exit Sub
 Else
    strmsg = MsgBox("您確定刪除所選擇的短語嗎?", vbExclamation + vbYesNo, "ListenEZ")
    If strmsg = vbNo Then
       Exit Sub
    Else
      rs6.Delete
   End If
 End If
End Sub

 也可以根據text判斷
Private Sub cmdDel_Click()
 
 Dim strmsg As String
  If  Me.DataGrid1.Columns(0).Text = "" Then
  
     Exit Sub
  Else
   strmsg = MsgBox("你確定要刪除所選擇的資料嗎?", vbExclamation + vbYesNo, "ListenEZ")
   If strmsg = vbYes Then '刪除
      adoRecordset.Delete
      adoRecordset.Update
   Else
      Exit Sub
   End If
 End If

End Sub
修改Enabled属性!
删除之后判断
If rs6.RecordCount = 0 Then
    cmdDel.enabled=false
    Exit Sub
 Else
    cmddel.enabled=true
endif
就像小飞说的那样就行了呀
谢谢各位!我试一下。
其实我的意思是:datagrid连接到数据库,在没有数据时,若用户点击删除按钮,则不做相应的动作。
怎么报错说这一句 :If  Me.DataGrid1.Columns(0).Text = "" Then  行设置不可用呀?
在点击时可以先判断一下若没有数据则exit sub
用 if me.datagrid1.tag="" then
      删除按钮.enabled=false
   end if
应该是enable属性!判断一下就可以设置了!
if adodc1.recordset.eof then
command1.enable=false
endif
看了大家热心的帮助后,终于有点启发了。我再试一下。谢谢!

寻高手:在窗口固定位置显示字符 两个特别的问题。 一个informix syntax error,请大家帮个忙看看 高手请进:一个非常奇怪的问题,我一直想不通就来求助了(高分求助) 怎么用一个简单的方法计算出 两个 DateTime 对象 相差几天? 高手请进:一个非常奇怪的问题,我一直想不通就来求助了(高分求助) 问题很很简单,耽误大家5分钟~~~~~~~~~~`~~~ 程序员杂志每个月几号发行的 C++如何调用C生成的Lib文件? 小弟请教各位高手 有做域名停放作弊高手吗请教一下! C++如何调用C生成的Lib文件? 有做域名停放作弊高手吗请教一下! 急问:我现在是一名大一学生请问我毕业后想要成立一个软件公司,除了要具备专业技能要选修的话,应该选什么专业? 有做域名停放作弊高手吗请教一下! 请教:exe调用dll,exe如何结束正在执行的dll?大家帮帮忙,挺急的。 J2EE高级群欢迎您的加入!群号:7715552 如何判断socket的状态 这是什么病毒? 气死我了!!! 有做域名停放作弊高手吗请教一下! 求助,原来客户机器上安装过软件。编程时候调用的是excel2003,客户机器上安装的是2003的,可以使用吗? 我用excel控件生成excel文件,只能生成一部分数据,好像数据多了,它生成不了 求救啊 算法计时方案??我的行么 新手问题!!!!!代码--- @@@@@@@==============请问我这个全文检索有什么错误呀=========== 怎样扩大超链接块? 大哥告诉我:用何软件能把MEPG动画文件取下相应的短时间画面变成图片? 怎样在MEPG文件中剪切一部分动画变成另一MEPG文件? Tkinter的疑问?