| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教表加载 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79041) |
| -- 作者：hbhb -- 发布时间：2015/12/23 11:45:00 -- 请教表加载 大师：计划里的下列代码加载表，为何有时显示，“关联表加载失败？” 其中 表z1与z2,z3与z4,dttzfl与dttzflmxb建立了关联。 If DataTables.Contains("z1") = False Then Functions.Execute("datatablesload","z1") End If If DataTables.Contains("z2") = False Then Functions.Execute("datatablesload","z2") End If If DataTables.Contains("z3") = False Then Functions.Execute("datatablesload","z3") End If If DataTables.Contains("z4") = False Then Functions.Execute("datatablesload","z4") End If If DataTables.Contains("z5") = False Then Functions.Execute("datatablesload","z5") End If If DataTables.Contains("dttzfl") = False Then Functions.Execute("datatablesload","dttzfl") End If If DataTables.Contains("dttzflmxb") = False Then Functions.Execute("datatablesload","dttzflmxb") End If Dim kz As String Dim bjh As new List(of String) bjh = DataTables("jcsjdatatable").GetValues("dstatablename","dstatablename is not null","_sortkey") For Each bj As String In bjh If bj <> "z1" And bj <> "z2" And bj <> "z3" And bj <> "z4" And bj <> "z5" And bj <> "dttzfl" And bj <> "dttzflmxb" Then If DataTables.Contains(bj) = False Then Functions.Execute("datatablesload",bj) End If End If kz = bj Next If kz = bjh(bjh.Count - 1) Then MyTimers("loaddatatable").Enabled = False End If |
| -- 作者：大红袍 -- 发布时间：2015/12/23 11:50:00 -- 关联表要一起加载 http://www.foxtable.com/help/topics/2755.htm
|