以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]窗口中的查询表table,如何设置某些行为红底呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28874)

--  作者:charlyni
--  发布时间:2013/2/21 10:34:00
--  [原创]窗口中的查询表table,如何设置某些行为红底呢?

如题,

 


此主题相关图片如下:qq截图20130221102742.png
按此在新窗口浏览图片

 

 

上图中的查询表,数据由用下面方式绑定的,即Table1的currentchanged事件代码如下:

 

 

Tables("项目数据统计_Table1").AutoSizeCols()
Dim dst1 As Table = Tables("项目数据统计_Table1")

Dim dr1 As Row = dst1.Current \'获得选定行
If dr1 Is Nothing Then   
Else
    Dim str As String = dr1("项目名称")
    Tables("项目数据统计_Table2").DataSource = DataTables("项目明细表")
    Tables("项目数据统计_Table2").SetColVisibleWidth("序号|90|操作日期|120|项目名称|120|操作类型|60|摘要|120|变动额度|120|起始日期|60|计息期限|120|收款日期|60|延迟天数|120|利息扣除|120")
    Tables("项目数据统计_Table2").Filter = "项目名称 = \'" & str & "\'"\'
End If


dst1.AutoSizeCols()
Tables("项目数据统计_Table2").AutoSizeCols()

 

其中,上图中的查询表就是:Tables("项目数据统计_Table2")

 

请问,如何将某些变动额度为负值的行,设置为“红底”呢?

 

 

注:在Table2的drawcell事件中设置不起作用,因为数据是动态绑定的,Table2的内容是根据Table1的currentchanged事件不停地变动的。

[此贴子已经被作者于2013-2-21 10:38:34编辑过]

--  作者:lin_hailun
--  发布时间:2013/2/21 10:44:00
--  
 窗口表的样式需要动态添加。

http://www.foxtable.com/help/topics/2628.htm

--  作者:blackzhu
--  发布时间:2013/2/21 12:01:00
--  
SQl窗口表类型才行.