此主题相关图片如下：03.gif
我采用两种方法加载关联表
演示采用的是通过加载窗口加载关联表，出现错误。其中【线缆总帐】与【线缆明细】是关联表
菜单代码
If DataTables.Contains("线缆总帐") = True And DataTables.Contains("线缆明细") = True And DataTables.Contains("生产台帐") = True And DataTables.Contains("线缆报表") = True Then
MainTable = Tables("线缆总帐") '切换主表
Forms("线缆台帐").Open()
Else
Forms("线缆车间加载表").Open()
'DataTables.Load("线缆总帐|线缆明细|生产台帐|线缆报表")
'MainTable = Tables("线缆总帐") '切换主表
'Forms("线缆台帐").Open()
End If
线缆车间加载表窗口TimerTick事件
For Each s As String In "线缆总帐|线缆明细|生产台帐|线缆报表".Split("|")
If DataTables.Contains(s) = False Then
e.Form.Controls("Label1").Text = "正在加载【" & s & "】表...请稍候"
Application.DoEvents()
If DataTables.Contains(s) = False Then
DataTables.Load(s)
End If
End If
Next
e.Form.TimerEnabled=False
e.Form.Close()
MainTable = Tables("线缆总帐") '切换主表
Forms("线缆台帐").Open()
第二种是通过菜单直接加载表，全部正常
If DataTables.Contains("线缆总帐") = True And DataTables.Contains("线缆明细") = True And DataTables.Contains("生产台帐") = True And DataTables.Contains("线缆报表") = True Then
MainTable = Tables("线缆总帐") '切换主表
Forms("线缆台帐").Open()
Else
'Forms("线缆车间加载表").Open()
DataTables.Load("线缆总帐|线缆明细|生产台帐|线缆报表")
MainTable = Tables("线缆总帐") '切换主表
Forms("线缆台帐").Open()
End If
通过加载表窗口加载表问题在哪？
[此贴子已经被作者于2014-5-11 15:08:04编辑过]
加好友 
发短信
Post By：2014/5/11 7:47:00 [只看该作者]
