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


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

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

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
求多条件判断后的删除按钮代码  发帖心情 Post By:2014/7/3 17:16:00 [显示全部帖子]

我想实现的删除按钮的功能为:
用户组为“行政部” 和 “佣金明细”表“店面经理”列的name 可以删除“审核”列为空的行,否则提示,请先取消审核再删除,
如果审核列为空 点击删除按钮后给出确认删除此行的提示。
请问代码如何写呢

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 9:25:00 [显示全部帖子]

bin老师 审核列不是逻辑列  另外我想只有grop = “行政部” 的人或 name = “店面经理”列里的name 的人才可以删除 

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 10:14:00 [显示全部帖子]

提示

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140704101441.png
图片点击可在新窗口打开查看
我的审核列不是逻辑列
[此贴子已经被作者于2014-7-4 10:14:46编辑过]

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 10:18:00 [显示全部帖子]

我是在窗口中的删除按钮里的 表的名字是 佣金明细 

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 10:20:00 [显示全部帖子]

那如果 写在 befordeletedatarow 事件 里面 我怎么删除呢  最好还是写在窗口 删除按钮里面

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 10:28:00 [显示全部帖子]

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

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望:0 精华:0 注册:2014/2/25 15:50:00
  发帖心情 Post By:2014/7/4 10:41:00 [显示全部帖子]

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

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


加好友 发短信
等级:三尾狐 帖子:629 积分:4927 威望: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

是这样写吗

 回到顶部