| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 复选框 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187467) |
| -- 作者：北狐 -- 发布时间：2023/7/20 14:39:00 -- 复选框 \'复选框与是否检查字段同步 Dim ids2 As String = "" For Each dr1 As DataRow In DataTables("应付副表本地表").Select("checked=true") ids2 = ids2 & ",\'" & dr1("factoryID") & "\'" Next 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 Next 老师帮忙看下避免
[此贴子已经被作者于2023/7/20 14:40:30编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2023/7/20 14:51:00 -- 勾选复选框的作用是什么，既然都有逻辑列，直接从逻辑列里取值处理不就行了，何必多此一举 |
| -- 作者：北狐 -- 发布时间：2023/7/20 14:58:00 -- 复选框是方便窗口操作，避免改到表单内容 已经发现在哪里错，勾选中代码这里写错了，应该是这样才对 If r1("factoryID").Contains(ids2) Then [此贴子已经被作者于2023/7/20 14:57:56编辑过]
|