Foxtable(狐表)用户栏目专家坐堂 → 求多条件判断后的删除按钮代码


  共有4241人关注过本帖树形打印复制链接

主题:求多条件判断后的删除按钮代码

帅哥哟,离线,有人找我吗?
有点甜
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/4 10:21:00 [只看该作者]

以下是引用188802386在2014-7-4 10:18:00的发言:
我是在窗口中的删除按钮里的 表的名字是 佣金明细 

 

没关系,按钮的代码最后还是要触发befordeletedatarow事件的

 

按钮直接写删除即可。


 回到顶部
帅哥哟,离线,有人找我吗?
188802386
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4915 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 10:28:00 [只看该作者]

甜老师 能不能就在删除按钮里面设置这些代码呢 我不想写在表事件里面

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/4 10:30:00 [只看该作者]

If (user.Group = "行政部" OrElse user.Name = "店面经理")
    If Tables("佣金明细").Current.isnull("审核")=False Then
        messagebox.show("不是空")
        Return
    End If
Else
    messagebox.show("没有权限")
    Return
End If
Tables("佣金明细").Current.Delete

 回到顶部
帅哥哟,离线,有人找我吗?
188802386
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4915 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 10:41:00 [只看该作者]

Tables("佣金明细").Current.Delete  加个提示 确认删除才删除 否则不删除  怎么写呢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/4 10:51:00 [只看该作者]

以下是引用188802386在2014-7-4 10:41:00的发言:
Tables("佣金明细").Current.Delete  加个提示 确认删除才删除 否则不删除  怎么写呢

 

请务必要自己提高一下。

 

参考 http://www.foxtable.com/help/topics/0326.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
188802386
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:629 积分:4915 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 11:08:00 [只看该作者]

Dim Result As DialogResult
Result = 
MessageBox.Show("确认删除该行数据?", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If Result = DialogResult.OK Then
Tables("佣金明细").Current.Delete
    MessageBox.Show("该信息已删除。","提示")
End if

是这样写吗

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/7/4 11:21:00 [只看该作者]

 嗯,是的,就是这样写。

 回到顶部
总数 17 上一页 1 2