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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  总表里的能力点根据姓名，时间，项目代码三个条件汇总明细表里的能力点，并以,号隔开  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116328)

--  作者：有点甜
--  发布时间：2018/3/22 21:32:00
--

总表datacolchanged事件

If e.DataCol.Name = "姓名" Then \'发生变化的是产品列.
    e.DataRow("能力点") = DataTables("子表").GetComboListString("能力点", "姓名 = \'" & e.DataRow("姓名") & "\'").replace("|", ",")
End If

子表datacolchanged事件

If e.DataCol.Name = "能力点" Then \'发生变化的是产品列.
    DataTables("统计").DataCols("姓名").RaiseDataColChanged("姓名 = \'" & e.DataRow("姓名") & "\'")
End If

--  作者：有点蓝
--  发布时间：2018/3/24 10:12:00
--
If e.DataCol.Name = "项目代号" orelse e.DataCol.Name = "填写人" orelse e.DataCol.Name = "计划日期" Then \'发生变化的是产品列.
    e.DataRow("能力点") = DataTables("工作记录评价表").GetComboListString("能力点", "填写人 = \'" & e.DataRow("填写人") & "\' And 计划日期 = \'" & e.DataRow("计划日期") & "\' And 项目代号 = \'" & e.DataRow("项目代号") & "\'").replace("|", ",")
End If