Foxtable(狐表)用户栏目专家坐堂 → 请问这儿表样式如何做呢


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

主题:请问这儿表样式如何做呢

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


加好友 发短信
等级:小狐 帖子:392 积分:3026 威望:0 精华:0 注册:2014/9/20 23:56:00
请问这儿表样式如何做呢  发帖心情 Post By:2015/7/28 15:17:00 [只看该作者]

表中如果行的 ischeckout为true  使用BillIsCheckOut样式

选择某行的时候 如果 ischeckout为true 则使用如下样式 
e.Table.DataTable.AddUserStyle("BillSelect", Color.RoyalBlue, Color.white) 
选择某行的时候  如果ischeckout为false 则使用如下样式
e.Table.DataTable.AddUserStyle("BillSelect", Color.RoyalBlue, Color.white)
e.Table.DataTable.Styles("BillSelect").FontStrikeout = True
这个应该怎么写呢
下面这样不对啊
以下内容为程序代码:

1 If e.Row.Index > = e.Table.TopPosition AndAlso e.Row.Index < = e.Table.BottomPosition Then
2 If e.Row("IsCheckOut") = True Then
3     e.Table.DataTable.AddUserStyle("BillSelect", Color.RoyalBlue, Color.white)
4     e.Table.DataTable.Styles("BillSelect").FontStrikeout = True
5 e.Style = "BillSelect"
6 Else
7     e.Table.DataTable.AddUserStyle("BillSelect", Color.RoyalBlue, Color.white)
8 e.Style = "BillSelect"
9 End If
10
11 Else
12 e.Table.DataTable.AddUserStyle("BillIsCheckOut", Color.White, Color.Black)
13 e.Table.DataTable.Styles("BillIsCheckOut").FontStrikeout = True
14 If e.Row("IsCheckOut") = True Then
15 e.Style = "BillIsCheckOut"
16 End If
17 End If

[此贴子已经被作者于2015/7/28 15:18:35编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/28 15:40:00 [只看该作者]

1、代码

 

If e.Row.Index > = e.Table.TopPosition AndAlso e.Row.Index < = e.Table.BottomPosition Then
    If e.Row("IsCheckOut") = True Then
        e.Table.DataTable.AddUserStyle("BillSelect1", Color.RoyalBlue, Color.white)
        e.Table.DataTable.Styles("BillSelect1").FontStrikeout = True
        e.Style = "BillSelect1"
    Else
       e.Table.DataTable.AddUserStyle("BillSelect2", Color.RoyalBlue, Color.white)
       e.Style = "BillSelect2"
    End If
Else
    e.Table.DataTable.AddUserStyle("BillIsCheckOut", Color.White, Color.Black)
    e.Table.DataTable.Styles("BillIsCheckOut").FontStrikeout = True
    If e.Row("IsCheckOut") = True Then
        e.Style = "BillIsCheckOut"
    End If
End If

2、要把风格去掉才行

 

标题区和选定区的背景颜色设置,只有在属性中的“使用界面”设置为False的时候,才会生效。


 回到顶部