关于DrawCell事件代码求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于DrawCell事件代码求助

共有4058人关注过本帖树形打印复制链接主题：关于DrawCell事件代码求助

温馨的大树

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00

关于DrawCell事件代码求助 发帖心情

Post By：2020/3/6 11:58:00 [只看该作者]

希望达到如下效果：

订单明细表的订单日期列，希望当天的第一个订单，整行用不同style样式进行显示，以对不同天的订单用行的样式作一个视觉上的区别，代码如下，不过在保存事件代码时，出现附件上面的错误信息，请问问题出在哪里?怎么修改啊？

Dim n As Integer = Tables("订单明细表").Rows.count
图片点击可在新窗口打开查看

此主题相关图片如下：万能五笔截图_20200306115305.png

Select Case e.Col.name

Case "订单日期"

For m As Integer = 1 To n-1

Dim i As TimeSpan =e.Row(m)-e.Row(m-1)

If i.days > 0 Then

e.Style="日分隔线"

End If

End Select

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/6 14:07:00 [只看该作者]

Select Case e.Col.name

Case "订单日期"

if e.row.index > 0 then

If e.Row(e.Col.name) > e.table.rows(e.row.index-1)(e.Col.name) then

e.Style="日分隔线"

End If

end if

End Select

温馨的大树

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1807 威望：0 精华：0 注册：2020/2/3 11:16:00

回复：（有点蓝）Select Case e.Col.name ... 发帖心情

Post By：2020/3/7 0:54:00 [只看该作者]

你好，代码更新后，只是订单日期这一列符合条件的单元格进行了标记，要实现的是这个单元格一行都用设定的样式进行标记，上述代码需要怎么调整呢？谢谢

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/7 8:52:00 [只看该作者]

去掉列名的判断即可

if e.row.index > 0 then

If e.Row(e.Col.name) > e.table.rows(e.row.index-1)(e.Col.name) then

e.Style="日分隔线"

End If

end if

下一主题 >> << 上一主题

主题：关于DrawCell事件代码求助