Foxtable(狐表)用户栏目专家坐堂 → 狐爸,这是新建表和代码。“完成否”和“付款否两列”Drawcell样式没出来


  共有8675人关注过本帖树形打印复制链接

主题:狐爸,这是新建表和代码。“完成否”和“付款否两列”Drawcell样式没出来

帅哥哟,离线,有人找我吗?
kemengyue
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:75 积分:758 威望:0 精华:0 注册:2012/4/24 13:56:00
狐爸,这是新建表和代码。“完成否”和“付款否两列”Drawcell样式没出来  发帖心情 Post By:2012/6/20 23:15:00 [只看该作者]

表结构:

表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-->

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
kemengyue
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:75 积分:758 威望:0 精华:0 注册:2012/4/24 13:56:00
  发帖心情 Post By: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-->


 回到顶部
美女呀,离线,留言给我吧!
yangming
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:4109 积分:23338 威望:0 精华:21 注册:2008/9/1 20:07:00
  发帖心情 Post By:2012/6/21 12:36:00 [只看该作者]

If e.Row("付款否") = "" Then    改成:  If e.Row("付款否") = true Then

 回到顶部