- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口中加载父表与子表同步问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108863)
-- 发布时间：2017/10/31 9:08:00
-- 窗口中加载父表与子表同步问题
在”S征地记录“主窗口中，用加载树不能实现子表”S征地明细“的数据同步加载。项目上传，请老师指点
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:公路征拆管理系统.zip |
-- 发布时间：2017/10/31 10:03:00
--
Dim Filter As String = "1=1"
Dim dr = e.node.FullPath.split("\\") \'获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Select Case e.Node.Level
Case 0
Filter = "[项目名称] = \'" & dr(0) & "\'"
Case 1
Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\'"
Case 2
Filter = "[项目名称] = \'" & dr(0) & "\' And [县] = \'" & dr(1) & "\' And [乡] = \'" & dr(2) & "\'"
End Select
End If
DataTables("S征地记录").save
If User.Name = "开发者" Or User.Name = "管理员" Then
DataTables("S征地记录").RemoveFor(Filter)
DataTables("S征地记录").AppendLoad(Filter)
Else
DataTables("S征地记录").RemoveFor("(乡 = \'" & User.Name & "\' or 县 = \'" & User.Name & "\' or 项目名称 = \'" & User.Name & "\') and " & Filter)
DataTables("S征地记录").AppendLoad("(乡 = \'" & User.Name & "\' or 县 = \'" & User.Name & "\' or 项目名称 = \'" & User.Name & "\') and " & Filter)
End If
-- 发布时间：2017/10/31 10:40:00
--
还是不行，加载树都加载不了了
-- 发布时间：2017/10/31 11:52:00
--
测试没问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:公路征拆管理系统.table |
-- 发布时间：2017/10/31 17:47:00
--
我下载打开，子表也是没有跟父表同步更新啊
-- 发布时间：2017/10/31 19:15:00
--
测试没问题。或者说，你需要做到什么效果，截图说明。
-- 发布时间：2017/11/1 8:40:00
--
此主题相关图片如下：qq图片1111.png
我想要的效果是：在”S征地记录“表里只加载洋溪乡的数据，”S征地明细“表里也同步只加载洋溪乡的数据。现在”S征地明细“表不能同步，是加载了所有数据
此主题相关图片如下：qq图片2222.png
-- 发布时间：2017/11/1 10:18:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:公路征拆管理系统.table |