”员工基本信息表“表事件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") & "'"
Next
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编辑过]
加好友 
发短信
Post By：2016/3/21 10:06:00 [只看该作者]
