- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 跨表引用节假日不显示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81860)
-- 发布时间：2016/3/7 21:25:00
-- 跨表引用节假日不显示
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:美味管理系统.zip |
为什么我根据日期,跨表引用节日名称,不显示,还请大神指教
If e.DataCol.Name = "日期" Then
If e.NewValue Is Nothing Then
e.DataRow("节日名称") = Nothing
Else
Dim dr As DataRow
dr = DataTables("节假日清单").Find("[日期] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then
e.DataRow("节日名称") = dr("节日名称")
End If
End If
End If
-- 发布时间：2016/3/8 0:33:00
--
If e.DataCol.Name = "日期" Then
If e.NewValue Is Nothing Then
e.DataRow("节日名称") = Nothing
Else
Dim dr As DataRow
dr = DataTables("节假日清单").Find("[日期] = #" & e.NewValue.Date & "#")
If dr IsNot Nothing Then
e.DataRow("节日名称") = dr("节日名称")
End If
End If
End If
-- 发布时间：2016/3/8 9:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:美味管理系统.table |
还是不对的，无法引用,日期列我是表达式计算出的，会不会是这个问题，附件帮忙看下
-- 发布时间：2016/3/8 9:18:00
--
表达式列是不会触发事件的
If e.DataCol.Name = "进入系统时间" Then
If e.NewValue Is Nothing Then
e.DataRow("节日名称") = Nothing
Else
Dim dr As DataRow
dr = DataTables("节假日清单").Find("[日期] = #" & e.NewValue.Date & "#")
If dr IsNot Nothing Then
e.DataRow("节日名称") = dr("节日名称")
End If
End If
End If