表事件afterload 代码没执行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

”员工基本信息表“表事件afterload 代码没执行，

图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20160321100615.jpg

此主题相关图片如下：qq截图20160321100545.jpg

If DataTables("员工基本信息表").DataRows.Count = 0 Then '如果员工基本信息表没有数据

DataTables("员工家庭信息表").LoadFilter = "[_Identify] Is Null" '不加载家庭关系

DataTables("员工工作经历表").LoadFilter = "[_Identify] Is Null" '不加载工作经历

DataTables("员工培训信息表").LoadFilter = "[_Identify] Is Null" '不加培训信息

DataTables("员工教育经历表").LoadFilter = "[_Identify] Is Null" '不加载教育经历

Else

Dim ids As String

For Each dr As DataRow In DataTables("员工基本信息表").DataRows

ids = ids & ",'" & dr("员工ID") & "'"

ids= ids.Trim(",")

DataTables("员工家庭信息表").LoadFilter = "员工ID In (" & ids & ")"

DataTables("员工工作经历表").LoadFilter = "员工ID In (" & ids & ")"

DataTables("员工培训信息表").LoadFilter = "员工ID In (" & ids & ")"

DataTables("员工教育经历表").LoadFilter = "员工ID In (" & ids & ")"

DataTables("员工家庭信息表").Load()

DataTables("员工工作经历表").Load()

DataTables("员工培训信息表").Load()

DataTables("员工教育经历表").Load()

End If

[此贴子已经被作者于2016/3/21 10:12:37编辑过]

主题：表事件afterload 代码没执行