复选框 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3088人关注过本帖树形打印复制链接主题：复选框

北狐

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：136 积分：1427 威望：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("本单单号"))

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编辑过]

北狐

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00

Post By：2019/12/6 14:17:00 [显示全部帖子]

老师，用你的代码还是不行，已选的复选框还是会被取消掉，然后没有一直显示在界面上（我试着了辅助列（是否检查），但复选框的状态和辅助列无法同步（就是可以通过复选框更新辅助列，但复选框与当前辅助列的状态未同步）

[此贴子已经被作者于2019/12/6 14:26:02编辑过]

北狐

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：136 积分：1427 威望：0 精华：0 注册：2013/8/7 18:14:00

Post By：2019/12/6 14:36:00 [显示全部帖子]

出现如图情况

此主题相关图片如下：1.png

，老师帮删除掉上面发错的图

[此贴子已经被作者于2019/12/6 14:38:00编辑过]

主题：复选框