自定义样式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自定义样式

共有2103人关注过本帖树形打印复制链接主题：自定义样式

g1j2h3

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

等级：小狐帖子：390 积分：4650 威望：0 精华：0 注册：2016/4/30 10:41:00

自定义样式

Post By：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

g1j2h3

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

等级：小狐帖子：390 积分：4650 威望：0 精华：0 注册：2016/4/30 10:41:00

Post By：2024/9/25 15:57:00 [显示全部帖子]

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

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

g1j2h3

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

等级：小狐帖子：390 积分：4650 威望：0 精华：0 注册：2016/4/30 10:41:00

Post By：2024/9/25 16:06:00 [显示全部帖子]

谢谢老师

主题：自定义样式