主题：[求助]在窗口中对即将到期的项目滚动提醒该怎么做？

昨天有处代码有点错误 导致时间不能更新 把窗口的afterload里的代码删掉 把计划管理里代码改成

Dim i As Integer=Tables("表A").count-1
Dim t As Integer
For t=0 To i
    Dim r As Row
    r=Tables("表A").Rows(t)
    r("今天日期")=Date.Today
    
    t=t+1
Next

用滚动不是很好 我试了一下 如果满足条件的项目非常多 上面就挤满了 给人一种非常乱的感觉

按照我这个例子 可以按项目结束时间来排序 按住ctrl键点击项目结束时间列标题  这样项目剩余时间会按从短到长排列  或反过来排序 非常直观

如果更进一步设计 可以根据项目剩余时间的长短 来设计图示的长短 这比用label 滚来滚去清晰多了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

如果你非要用标签来滚动 可以参考下思路

1.获得满足条件的行和行数 可以通过增加一个整数列用来存贮项目剩余天数 判断的时候以此列为标准

2.在窗口里动态添加标签 标签数等于行数 标签名=项目编号+项目名称+项目剩余天数

如果要滚动效果 可以参考下列代码 这个代码放在winform的timetick事件里

Dim lb As WinForm.Label=e.Form.controls("Label1")
Dim t As Integer=e.Form.Width
lb.left=lb.left+5
If lb.left>t Then
lb.left=0
End If

不是按项目剩余时间排序 是按项目结束时间来排序