收录日期:2018/11/19 05:25:35 时间: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
看了大家热心的帮助后,终于有点启发了。我再试一下。谢谢!

如何在第二个页面获得第一个页面表单提交的值 终于找到赚钱的头路了,我新做了一个网站,大家进来评评 机器中毒了!!! 有问题请教高手,在线等~关于文件读写 如何在ASP.NET 实现站内搜索 ? (50分请教!) 映射网络驱动器后USB的问题!!! 怪事了 我想我爸妈了 怎么把makefile文件转成vc的工程文件 请教大家 现金求助,关于C#与数据库 求助C#字符串的问题 (急,在线等待)VB6中升级Access数据库视图???? 旧电脑升级,大家帮个忙! 电脑安裝不了系统 如何判断读入文件的内容是否结束 怎么判断一个网络地址文件是否存在呀? 请问谁有软件设计师考试的教程? 求助 要去军营讲MP3、数码相机的基础知识,寻素材 很急的问题,谁能帮帮我!!!!!!!! DataGrid为何不能修改?请高手帮助!(附源码) 问个很简单的问题。。。如何调用那个一个文本的字体设置 想做一个类似e-bay易趣的网站,有没有开源的东东参考一下 我杀毒后出现了这样的情况?请高手解教。 C#怎样做内置SMTP服务器的邮件群发软件? 急求:VC++6.0英文版 下载 老兄们,我的asp.net程序本身是对的,但我为什么总连接不上数据库,系统提示是\"不存在数据库或是访问被拒绝\" 初学java 求助!!!!!!!!!!!!!!!!!!!! Hibernate一次删除多个对象怎么实现?