- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 跨表引用逻辑值 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89276)
-- 发布时间：2016/8/18 14:12:00
-- 跨表引用逻辑值
有两个表，
此主题相关图片如下：34.png
此主题相关图片如下：35.png
假日表中 已经将日期设置好了，
想将 考勤机 表中的 节假日（逻辑列）从 假日表 中引入。
以下代码 引入不了，请老师帮看看，谢谢！
If e.DataCol.Name = "日期" Then
If e.NewValue Is Nothing Then
e.DataRow("节假日") = Nothing
Else
Dim dr7 As DataRow
dr7 = DataTables("假日表").Find("[日期] = \'" & e.NewValue & "\'")
If dr7 IsNot Nothing
e.DataRow("节假日") = dr7("节假日")
End If
End If
End If
-- 发布时间：2016/8/18 14:25:00
--
出勤汇总表中有“全勤天数”列和“年月”列，如何根据“年月”列的内容，跨表从“假日表”中，统计出年月的“正常出勤”次数，填入“全勤天数”列里，
帮助里有跨表统计，但不知有条件的统计和逻辑列的统计怎么写，
请老师帮谢谢代码呗，学习学习，谢谢！
-- 发布时间：2016/8/18 15:05:00
--
If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("日期") Then
e.DataRow("节假日") = Nothing
Else
Dim dr7 As DataRow
dr7 = DataTables("假日表").Find("[日期] = #" & e.NewValue & "#")
If dr7 IsNot Nothing
e.DataRow("节假日") = dr7("节假日")
Else
e.DataRow("节假日") = Nothing
End If
End If
End If
-- 发布时间：2016/8/18 15:28:00
--
老师，试了试，还是引入不了，不知怎么回事
-- 发布时间：2016/8/18 15:45:00
--
1、重置日期列；
2、输入比如 2016-09-17，肯定能有反应。
-- 发布时间：2016/8/18 16:04:00
--
果然解决了，谢谢老师
-- 发布时间：2016/8/18 16:04:00
--
出勤汇总表中有“全勤天数”列和“年月”列，如何根据“年月”列的内容，跨表从“假日表”中，统计出年月的“正常出勤”次数，填入“全勤天数”列里， 帮助里有跨表统计，但不知有条件的统计和逻辑列的统计怎么写， 请老师帮谢谢代码呗，学习学习，谢谢！ 这个也请老师帮帮忙，正头痛中 |
-- 发布时间：2016/8/18 17:17:00
--
Dim count As Integer = DataTables("考勤表").Compute("count(年月)", "节假日 is not null")
msgbox("总天数" & count)
Dim count1 As Integer = DataTables("考勤表").Compute("count(年月)", "节假日 is not null and 是否出勤 = true")
msgbox("出勤天数" & count1)