| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 复选框 筛选加载的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=142050) |
| -- 作者：sxm12123 -- 发布时间：2019/10/17 11:05:00 -- 复选框 筛选加载的问题 A表为订单主表 B表为订单明细表 表B的加载条件为：表A已选择的逻辑行中查找订单编号 存在问题：只能显示一张订单明细，表A选择多张订单也只能显示一张订单明细 需要解决：如何实现表A选择多张订单后，表B加载多张订单的明细？ 表B的afterload事件代码如下：
For Each r As Row In Tables("订单查询").GetCheckedRows DataTables("未走量").LoadFilter = "起始凭证 = \'" & r("起始凭证") & "\'"DataTables("未走量").Load Next |
| -- 作者：有点蓝 -- 发布时间：2019/10/17 11:24:00 -- 表A，AfterCheckRow的事件代码 Dim str As String = "" For Each r As Row In e.Table.GetCheckedRows \'遍历所有已经勾选的行 str = str & ",\'" r("起始凭证") & "\'" Next str = str.Trim(",") DataTables("表B").LoadFilter = "起始凭证 in (" & str & ")" DataTables("表B").Load |
| -- 作者：sxm12123 -- 发布时间：2019/10/17 14:52:00 -- 感谢老师，问题解决了。但是表A不勾选行的时候会出现运行错误提示：语法错误 (操作符丢失) 在查询表达式 \'(起始凭证 in ())\' 中。 Dim str As String = "" For Each r As Row In e.Table.GetCheckedRows \'遍历所有已经勾选的行str = str & ",\'" & r("起始凭证") & "\'" Next str = str.Trim(",") DataTables("未走量").LoadFilter = "起始凭证 in (" & str & ")" DataTables("未走量").Load |
| -- 作者：有点蓝 -- 发布时间：2019/10/17 14:59:00 -- 很简单的问题，自己想想应该怎么处理，如果没有勾选，应该怎么判断？ |