标题：自定义样式

1楼

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

2楼

有点蓝 发表于：2024/9/25 14:48:00

drawcell事件

If e.row("备注") = "作废" Then '如果找到符合条件的行

e.Style = "作废"

End If

3楼

g1j2h3 发表于：2024/9/25 15:57:00

可能我没说清楚，备注列内有多个内容，譬如：“含运费作废”，如何写代码，麻烦老师指教

[此贴子已经被作者于2024/9/25 15:58:16编辑过]

4楼

有点蓝 发表于：2024/9/25 16:03:00

http://www.foxtable.com/webhelp/topics/1422.htm

If e.row.isnull("备注")=false andalso e.row("备注").Contains("作废") Then

5楼

g1j2h3 发表于：2024/9/25 16:06:00

谢谢老师

共5 条记录, 每页显示 10 条, 页签: [1]