以文本方式查看主题

-  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("入库单号") & "\'" 
因为入库单号的列属性虽然设置了字符型 但是单号全部都是数字。去掉了去掉了单引号就可以正常加载了