收录日期:2019/01/21 20:15:01 时间: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
看了大家热心的帮助后,终于有点启发了。我再试一下。谢谢!

SQL server 使用问题. 无提示窗口的关闭,为什么有的可以,有的不可以 在打印主从报表时,只打印主表中的一条记录所相关的所有从表的信息 关于ListView的SelectedIndexChanged事件(WinForm) SQL Server 数据库日志文件损坏,数据库无法使用该如何解决 谁能把 Webbrowser打开网页时发出的声音弄掉!???难不难? .net下手机开发遇到的问题,请各位朋友帮一下忙 可注册dll与不可注册dll区别 权限设置问题!在线等,急! HELP!!!1 [::]如何用c++实现获取一个网站的信息(html代码),而不用IE?我有一段java代码,不知哪位能帮助转为vc 如何取得自身文件名 ? 请问距离为50/KM的两端如何通信? 启用word wide web publishing service时遇到的问题. 请问哪有并口开发的例子或者书籍? 怎样在Dlg下加一状态栏一项为bitmap?? 特别郁闷的问题,请大家看看吧,快把我给急死了 高分求一方程解法(不够再加)。。。。。。。。。。。在线。。。。急急。。。。 如何格式化DataList中的日期控件(lable)?? 在Redhat和Win2000双系统下,如何在redhat中访问2000下的数据? 好想快点找到一个能相互关心的女朋友,我一定会用我的生命去爱她,我不想再过这样的生活了. 请教经验丰富者! 用UDP还是TCP? 请问print方法如何居中打印? 请教下哪个公司的虚拟主机好? linux 用c++用什么头文件? 求救xml数据库连接问题!!!!!!!!! 样品库浏览系统 最个性最无辜的车牌~~~ 请问ORA-12571:TNS packet writer failure. 写入数据包失败是什么原因???? 请教下哪个公司的虚拟主机好?价格如何?