增加一个辅助列,逻辑列,比如列名【每季度前10天】
datacolchanged事件
if e.datacol.name = "日期" then
if e.datarow.isull("日期") then
e.datarow("每季度前10天") = false
else
dim m as integer = e.datarow("日期").month
dim d as integer = e.datarow("日期").day
e.datarow("每季度前10天") = (m = 1 andalso m = 4 andalso m= 7 andalso m= 10 andalso d >= 1 andalso d<=10)
end if
end if
drawcell事件
http://www.foxtable.com/webhelp/topics/0656.htm
if e.col.name = "姓名" then
if e.table.compute("count(姓名)","每季度前10天 = true and 姓名 = '" & e.row("姓名") & "'") <= 1
e.style = "样式1"
end if
end if