BeforeConnectOuterDataSource:
e.C & e.ProjectPath & "gh\用户.mdb;Persist Security Info=False" （未发布连接本台计算机ACCESS）
AfterOpenProject:
Dim cmd1 As New SQLCommand
cmd1.C
cmd1.CommandText = "SELECT * F rom {Users} Where [Name] Is Null"
xzqy = cmd1.ExecuteReader
Tables("员工档案主表").Cols("员工姓名").Combolist = xzqy.SQLGetComboListString("Name")
Tables("员工档案主表").Cols("工作部门").Combolist = xzqy.SQLGetComboListString("Dept")
Tables("员工档案主表").Cols("工作职务").Combolist = xzqy.SQLGetComboListString("Group")
BeforeLoadOuterTable:
Select Case e.DataTableName
Case "投标评价" '初始不加载这个表
e.Cancel = True
Case "员工档案主表","员工档案合同","员工档案教育","员工档案薪酬","员工档案阅历" '初始不加载5个表(关联)
e.Cancel = True
End Select
主窗口 AfterLoad:
If DataTables.Contains("员工档案主表") = False Then
DataTables.Load("员工档案主表|员工档案合同|员工档案教育|员工档案薪酬|员工档案阅历")
End If
加好友 
发短信
Post By：2016/10/13 10:12:00 [显示全部帖子]
