|
#2
apull2022-05-10 23:55
 程序代码：Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim str As String Dim time As Date For Each item As ListViewItem In ListView1.Items str = item.SubItems(1).Text time = DateTime.Parse(str) If (time, Now) < 0 Then item.SubItems(1).ForeColor = Color.Red End If Next End Sub 单独单元格自定义格式需要设置 ListViewItem1.UseItemStyleForSubItems = False 否则需要修改整行的颜色 只有本站会员才能查看附件，请 登录 |
我用LiseView读取数据库数据，我想在开始日期30天或365天
只有本站会员才能查看附件，请 登录
后的到期日，日期自动显示为红色作为标注，请问如何可以做到。谢谢！
SELECT
convert(char(10),[SY10006],120) AS [开始日期]
,convert(char(10),(CASE WHEN SY10007 = '6' THEN DATEADD(DAY,31,SY10006) WHEN SY10007 = '12' THEN DATEADD(DAY,365,SY10006) END),120) AS [到期日期]
FROM [SY10]
只有本站会员才能查看附件，请 登录
[此贴子已经被作者于2022-5-10 14:45编辑过]
