| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [讨论]打开项目时的按条件加载 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133264) |
| -- 作者：samlzc -- 发布时间：2019/4/10 22:43:00 -- [讨论]打开项目时的按条件加载 由于系统的的数据很多，想学习按条件加载 在BeforeLoadOuterTable有以下代码 If e.DataTableName = "入库单" Then e.SelectString = "Select * F rom {入库单} Where [_Identify] Is Null" End If If e.DataTableName = "入库明细" Then e.SelectString = "Select * F rom {入库明细} Where [_Identify] Is Null" End If AfterOpenProject Dim Filter As String Filter = "[审核] = 0" DataTables("入库单").LoadFilter = Filter DataTables("入库单").Load() 入库单的表事件afterload Dim ids As String For Each dr As DataRow In e.DataTable.DataRows ids = ids & ",\'" & dr("入库单号") & "\'" Next ids= ids.Trim(",") DataTables("入库明细").LoadFilter = "入库单号 In (" & ids & ")" DataTables("入库明细").Load() 入库单和入库明细都设置好关联 现在打开系统后只有入库单按条件加载了数据，而入库明细表显示空白，没能加载 为什么呢？ |
| -- 作者：有点甜 -- 发布时间：2019/4/10 23:16:00 -- 入库单的表事件afterload，加入msgbox，看是否弹出。 |
| -- 作者：samlzc -- 发布时间：2019/4/10 23:31:00 -- 已经可以了 ids = ids & ",\'" & dr("入库单号") & "\'" 因为入库单号的列属性虽然设置了字符型 但是单号全部都是数字。去掉了去掉了单引号就可以正常加载了
|