| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 自定义样式 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193560) |
| -- 作者：g1j2h3 -- 发布时间：2024/9/25 14:10:00 -- 自定义样式 请教大师，下边这段代码错在哪里，如果备注列含有“作废”，那么所在行样式将显示“作废”样式 With Tables("接单登记") Dim r As Integer r = .Find("作废", 0, "备注", False, False, True) If r > - 1 Then \'如果找到符合条件的行 .Position = r \'则选择该行 e.Style = "作废" End If End With |
| -- 作者：有点蓝 -- 发布时间：2024/9/25 14:48:00 -- 先看看：http://www.foxtable.com/webhelp/topics/0604.htm，再看看：http://www.foxtable.com/webhelp/topics/2925.htm drawcell事件 If e.row("备注") = "作废" Then \'如果找到符合条件的行 e.Style = "作废" End If |
| -- 作者：g1j2h3 -- 发布时间：2024/9/25 15:57:00 -- 可能我没说清楚，备注列内有多个内容，譬如：“含运费 作废”，如何写代码，麻烦老师指教 [此贴子已经被作者于2024/9/25 15:58:16编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2024/9/25 16:03:00 -- http://www.foxtable.com/webhelp/topics/1422.htm If e.row.isnull("备注")=false andalso e.row("备注").Contains("作废") Then |
| -- 作者：g1j2h3 -- 发布时间：2024/9/25 16:06:00 -- 谢谢老师 |