Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]多选记录问题？


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

主题：[求助]多选记录问题？
帅哥哟，离线，有人找我吗？
花开的声音
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		[求助]多选记录问题？  发帖心情 Post By：2014/4/28 11:51:00 [只看该作者]

表A中有一boolean类型的列B，想在用鼠标在该列拖动多条记录后，自动将拖动过的记录在该列上都复选上，然后批量地删除，怎么实现？
[此贴子已经被作者于2014-4-28 11:53:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/28 11:54:00 [只看该作者]

If e.DataCol.name="逻辑列" Then
  For i As Integer = Tables("表A").TopPosition To Tables("表A").BottomPosition
        Tables("表A").Rows(i)("逻辑列")=e.NewValue
  Next
End If

放到DataColChanged事件
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/28 11:55:00 [只看该作者]

不是批量改变逻辑列的值么,一回复怎么变批量删除了图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/28 11:56:00 [只看该作者]

批量伤处你额外做个按钮吧,代码也是类似的 参考帮助http://www.foxtable.com/help/topics/0599.htm
 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 11:56:00 [只看该作者]

呵，不好意思。最终还是想通过复选后，删除记录。

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/4/28 11:57:00 [只看该作者]

这是删除操作，不能让用户操作太方便，还是一个一个的选定，再删除。

用户操作，不可能按开发者的意愿，严格规范。
 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 11:59:00 [只看该作者]

是在副本表A上拖选呵， DataColChanged事件？

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/28 12:00:00 [只看该作者]

刷新帖子,看 234楼.

 回到顶部
帅哥哟，离线，有人找我吗？
花开的声音
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1172 积分：8418 威望：0 精华：0 注册：2012/10/29 20:09:00 		  发帖心情 Post By：2014/4/28 14:10:00 [只看该作者]

Dim t As Table = Tables("法律服务人员维护_基层法律服务人员信息表")
If MessageBox.Show("是否要删除选择的人员?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
   t.DataTable.DeleteFor(t.Row("选择"）=True)
End If

deletefor括号里面的筛选条件怎么设置？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/4/28 14:12:00 [只看该作者]

 t.DataTable.DeleteFor("选择=True")

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询