- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 【求助】1、如何根据某个单元格值来突出整行红色显示，2、如何实现当前表滚动显示行！ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=108012)
-- 发布时间：2017/10/14 11:42:00
-- 【求助】1、如何根据某个单元格值来突出整行红色显示，2、如何实现当前表滚动显示行！
【求助】
1、如何根据某个单元格值来突出整行红色显示，
If e.Col.Name = "到期日期" Then
If e.Row.IsNull(e.Col.Name) = False
If e.Row(e.Col.Name) <= Date.Today Then
e.Style = "到期"
ElseIf e.Row(e.Col.Name) > Date.Today Then
e.Style = "未到期"
End If
End If
End If
上述代码能够实现单元格绘制颜色，怎么实现整行颜色绘制呢？
2、如何实现当前表滚动显示行！
窗体TIMERTICK代码
Dim t As Table = e.Form.Controls("Table1").Table
If t.Position < t.Rows.Count - 1 Then
t.Position += 1
Else
t.Position = 0
End If
运行后无法实现滚动显示行，求解啊！
此主题相关图片如下：1111.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:案件信息公开系统.foxdb |
-- 发布时间：2017/10/14 12:09:00
--
1、
If e.Row(e.Col.Name) <= Date.Today Then
e.Style = "到期"
ElseIf e.Row(e.Col.Name) > Date.Today Then
e.Style = "未到期"
End If
2、
Dim t As Table = e.Form.Controls("Table1").Table
If t.Position < t.Rows.Count - 1 Then
t.Position += 1
Else
t.Position = 0
End If
t.TopVisibleRow = t.Position
-- 发布时间：2017/10/14 12:31:00
-- 回复：（有点蓝）1、If e.Row(e.Col.Name) <= Date...
问题依旧 我特郁闷了 非开发版都可以这样操作 为什么开发版就不能操作成功了呢？
-- 发布时间：2017/10/14 14:06:00
--
1、
If e.Row.IsNull("到期日期") = False \'且该列已经输入内容
If e.Row("到期日期") <= Date.Today Then \'如果该列的值小于60
e.Style = "到期" \'那么用"不及格"样式绘制单元格
ElseIf e.Row("到期日期") > Date.Today Then \'如果单元格的值大于95
e.Style = "未到期" \'那么用"优秀"样式绘制单元格
End If
End If
-- 发布时间：2017/10/14 14:36:00
-- 回复：（有点蓝）1、If e.Row.IsNull("到期日期") = F...
1、问题还是只能采用到单元格样式。因为设定的到期与未到期都是单元格的样式，请问如何改进未改行使用样式呢？
实现效果就是当前行到期日期等于今天日期的时候，整行为显示红色字体！
2、问题解决，原来是忽视了窗体属性的计时器启用。
-- 发布时间：2017/10/14 14:47:00
--
1、测试没有问题，和样式没有关系。代码改对了就可以
-- 发布时间：2017/10/14 15:53:00
-- 回复：（有点蓝）1、测试没有问题，和样式没有关系。代...
ok 谢谢老师
-- 发布时间：2017/10/16 9:51:00
--
mark