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

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

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

北狐

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

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

复选框

Post By：2023/7/20 14:39:00 [显示全部帖子]

'复选框与是否检查字段同步

Dim ids2 As String = ""

For Each dr1 As DataRow In DataTables("应付副表本地表").Select("checked=true")

ids2 = ids2 & ",'" & dr1("factoryID") & "'"

ids2 = ids2.Trim(",")

Messagebox.Show(ids2)

ids2的值为AT2303-0001序11

执行下面代码时，会同步把AT2303-0001序1一起选上，（即勾选上AT2303-0001序1和AT2303-0001序11）

For Each r1 As Row In Tables("应付副表本地表").Rows

If ids2.Contains(r1("factoryID")) Then

r1.Checked = True

End If

老师帮忙看下避免

[此贴子已经被作者于2023/7/20 14:40:30编辑过]

北狐

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

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

Post By：2023/7/20 14:58:00 [显示全部帖子]

复选框是方便窗口操作，避免改到表单内容

已经发现在哪里错，勾选中代码这里写错了，应该是这样才对

If r1("factoryID").Contains(ids2) Then

[此贴子已经被作者于2023/7/20 14:57:56编辑过]

主题：复选框