- 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=20834)
-- 发布时间：2012/6/20 23:15:00
-- 狐爸，这是新建表和代码。“完成否”和“付款否两列”Drawcell样式没出来
表结构：
表A
姓名() ----> 字符型(16)
电话() ----> 字符型(16)
接单时间() ----> 日期型
完成时间() ----> 日期型
完成否() ----> 逻辑型
付款否() ----> 逻辑型
第七列() ----> 字符型(16)
第八列() ----> 字符型(16)
第九列() ----> 字符型(16)
第十列() ----> 字符型(16)
项目事件
计划管理
表事件
表A_DrawCell
If e.col.name = "完成时间" Then
If e.text >"" Then
Dim dt As Date = e.Text
Dim ts As Integer = (Date.today - dt).totalDays
If ts > 7 Then
e.Style= "二周"
Else
e.Style= "一周"
End If
End If
ElseIf e.col.name = "逻辑" Then
If e.Row("付款否") = "" Then
e.Style= "完成"
Else
e.Style= "未完"
End If
End If
窗口表事件
窗口与控件事件
自定义函数
全局代码
菜单事件
<!--EndFragment-->
此主题相关图片如下：360截图20120620231241453.jpg
<!--EndFragment-->
-- 发布时间：2012/6/21 7:37:00
--
lseIf e.col.name = "付款否" Then
If e.Row("付款否") = true Then
e.Style= "完成"
Else
e.Style= "未完"
End If
End If
-- 发布时间：2012/6/21 12:16:00
--
逻辑改成付款后，报错了
表A_DrawCell
If e.col.name = "完成时间" Then
If e.text >"" Then
Dim dt As Date = e.Text
Dim ts As Integer = (Date.today - dt).totalDays
If ts > 7 Then
e.Style= "二周"
Else
e.Style= "一周"
End If
End If
ElseIf e.col.name = "付款否" Then
If e.Row("付款否") = "" Then
e.Style= "完成"
Else
e.Style= "未完"
End If
End If
<!--EndFragment-->
-- 发布时间：2012/6/21 12:36:00
--
If e.Row("付款否") = "" Then 改成: If e.Row("付款否") = true Then