Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复选框


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

主题：复选框
帅哥哟，离线，有人找我吗？
outcat
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		复选框  发帖心情 Post By：2019/11/10 13:08:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：11111.png
图片点击可在新窗口打开查看

老师，这个切换类别后，记住选中 复选框的状态呢，需要在哪块加代码呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/10 21:05:00 [只看该作者]

把选中的那一行的主键记录下来

dim lst as new List(of string)
For Each r As Row In Tables("员工").GetCheckedRows
  lst.add(r("_Identify"))
Next
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2019/11/11 9:10:00 [只看该作者]

Dim lst As new List(of String)
For Each r As Row In Tables("导入商品_Table1").GetCheckedRows
   lst.add(r("_Identify")) 
    If Forms("新增商品采购").opened Then
        Dim r11 As Row = Tables("采购明细表").AddNew
        Dim r12 As Row = Tables("采购总表").Current
        r11("日期") = r12("日期")
        r11("供应商") = r12("供应商")
        r11("采购单号") = r12("采购单号")
        r11("采购员") = r12("采购员")
        r11("登记人") = r12("登记人")
        r11("仓库名称") = r12("仓库名称")
        r11("商品类别") = r("二级类别")
        r11("类别编号") = r("二级编号")
        r11("商品编号") = r("商品编号")
        r11("商品名称") = r("商品名称")
        r11("规格") = r("规格")
        r11("型号") = r("型号")
        r11("单位") = r("单位")
        r11("单价") = r("单价")
    End If
Next
e.Form.close            

老师，这是我 导入  里的代码，加入了你的代码，还是不行，一直是最后选择的那几个商品
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/11 9:38:00 [只看该作者]

这个代码只是导入，和切换类别有什么关系？另外这个代码只是记录了勾选的行，也并没有还原的用法。
 回到顶部
帅哥哟，离线，有人找我吗？
outcat
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：470 积分：3641 威望：0 精华：0 注册：2017/11/5 14:47:00 		  发帖心情 Post By：2019/11/11 9:48:00 [只看该作者]

那这个记住了勾选，我要最后一下子把记住勾选的行全部导入呀，可现在是一切换选择别的类的商品，勾选记录既取消了，这个还能怎么解决了，请老师明示

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


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/11/11 9:51:00 [只看该作者]

那要在切换选择别的类的商品那里写代码处理啊

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


加好友 发短信
等级：幼狐 帖子：135 积分：1404 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2019/12/6 12:53:00 [只看该作者]

还原用法具体如何？就已勾选的还是正常显示在界面
以下代码无效
Dim lst As new List(of String)
For Each r As Row In Tables("销售主表").GetCheckedRows
  lst.add(r("本单单号"))
Next

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("销售主表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "本单单号 Like " & txt & ""' Or 本单单号 In "& lst &"" 
End If
[此贴子已经被作者于2019/12/6 12:55:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/6 13:50:00 [只看该作者]

Dim lst As new List(of String)
For Each r As Row In Tables("销售主表").GetCheckedRows
    lst.add(r("本单单号"))
Next

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("销售主表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "本单单号 Like " & txt & ""' Or 本单单号 In "& lst &""
End If

For Each r As Row In Tables("销售主表").Rows
    If  lst.Contains(r("本单单号")) Then
        r.Checked = True
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
北狐
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：135 积分：1404 威望：0 精华：0 注册：2013/8/7 18:14:00 		  发帖心情 Post By：2019/12/6 14:17:00 [只看该作者]

老师，用你的代码还是不行，已选的复选框还是会被取消掉，然后没有一直显示在界面上（我试着了辅助列（是否检查），但复选框的状态和辅助列无法同步（就是可以通过复选框更新辅助列，但复选框与当前辅助列的状态未同步）
[此贴子已经被作者于2019/12/6 14:26:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107880 积分：548763 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/12/6 14:30:00 [只看该作者]

请上传实例说明

 回到顶部
总数 12 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 次数据查询