如题，
此主题相关图片如下：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编辑过]
加好友 
发短信
Post By：2013/2/21 10:34:00 [显示全部帖子]
