- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 有关DRAWCELL (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=143544)
-- 发布时间：2019/11/28 9:46:00
-- 有关DRAWCELL
我想让每天录入的第一条数据用特别的样式
代码如下
Dim t1 As Table = Tables("评估简表")
| Dim dr2 As DataRow | |||
| Dim dr3 As DataRow | |||
| Dim ii8 As Integer=t1.Rows.Count - 1 |
Dim i As Integer
For I =0 To ii8
I=I+1
dr2 = DataTables("评估简表").DataRows(I)
dr3 = DataTables("评估简表").DataRows(I-1)
If dr2("日期")>dr3("日期")
e.Style = "样式5"
End If
Next
但是运行一直出现错误
请大神指教
-- 发布时间：2019/11/28 10:08:00
--
Dim min As Integer = e.table.compute("min(_Identify)","日期=#" & date.today & "#")
if e.row("_Identify") = min then
e.Style = "样式5"
end if
[此贴子已经被作者于2019/11/28 10:07:54编辑过]
-- 发布时间：2019/11/28 14:51:00
--
不好意思 我照复制了过去 还是出错了 -identify 是什么
-- 发布时间：2019/11/28 15:02:00
--
出什么错？_Identify是主键
-- 发布时间：2019/11/28 15:12:00
--
不好意思 好像是可以了
不过如果明天成了新的一天， 那我今天的用的"样式5"会不会消失？ 因为我看是TODAY
我希望每天的第一个录入数据都保留样式，主要是为了方便查阅每一天的数据起点
-- 发布时间：2019/11/28 15:33:00
--
Dim min As Integer = e.table.compute("min(_Identify)","日期=#" & e.row("日期") & "#")
if e.row("_Identify") = min then
e.Style = "样式5"
end if