- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 表事件afterload 代码没执行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82584)
-- 发布时间：2016/3/21 10:06:00
-- 表事件afterload 代码没执行
”员工基本信息表“表事件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编辑过]
-- 发布时间：2016/3/21 10:39:00
--
提示很明显了啊，项目里面没有一个叫 【员工工作经历表】 的表。
-- 发布时间：2016/3/21 11:36:00
--
有啊，代码里提到的第个表都有
-- 发布时间：2016/3/21 11:54:00
--
命令窗口，循环列出各个表的名字，对比一下。
For Each dt As DataTable In DataTables
output.show(dt.name)
Next