专家坐堂-为什么绘制没有生效?Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么绘制没有生效?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=180035)

--  作者：9EQ98
--  发布时间：2022/9/24 9:30:00
--  为什么绘制没有生效?

\' 当前表包含CMID列,当前字段为字符型且不为空
If e.Col.IsString AndAlso e.Table.Cols.Contains("CMID") AndAlso e.Row.IsNull(e.Col.Name) = False Then
If e.Row("CMID") = _CMID_CMID Then
Select Case e.Col.Name
Case "器型"
If e.Row(e.Col.Name) <> _CMID_器型 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "釉色"
If e.Row(e.Col.Name) <> _CMID_釉色 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "花面"
If e.Row(e.Col.Name) <> _CMID_花面 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "材质"
If e.Row(e.Col.Name) <> _CMID_材质 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "产品尺寸"
If e.Row(e.Col.Name) <> _CMID_产品尺寸 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "产品分类"
If e.Row(e.Col.Name) <> _CMID_产品分类 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "产品名称"
If e.Row(e.Col.Name) <> _CMID_产品名称 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "产品容量"
If e.Row(e.Col.Name) <> _CMID_产品容量 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "成型工艺"
If e.Row(e.Col.Name) <> _CMID_成型工艺 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "泥料编号"
If e.Row(e.Col.Name) <> _CMID_泥料编号 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
End Select
End If
End If

[此贴子已经被作者于2022/9/24 9:31:23编辑过]

--  作者：有点蓝
--  发布时间：2022/9/24 9:48:00
--
调试一下

If e.Col.IsString AndAlso e.Table.Cols.Contains("CMID") AndAlso e.Row.IsNull(e.Col.Name) = False Then
output.show("1=" & e.Col.Name)
If e.Row("CMID") = _CMID_CMID Then
output.show("CMID=_CMID_CMID")
Select Case e.Col.Name
Case "器型"
If e.Row(e.Col.Name) <> _CMID_器型 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "釉色"
If e.Row(e.Col.Name) <> _CMID_釉色 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If
Case "花面"
output.show("花面")
output.show("|" & e.Row(e.Col.Name) & "|" & _CMID_花面 & "|")
If e.Row(e.Col.Name) <> _CMID_花面 Then \'如果该列的值不相符
e.Style = "差异" \'那么用"差异"样式绘制单元格
End If

--  作者：9EQ98
--  发布时间：2022/9/24 9:55:00
--

做了单列的测试,还是没有进行绘制

--  作者：有点蓝
--  发布时间：2022/9/24 9:59:00
--
有添加样式了吗

--  作者：9EQ98
--  发布时间：2022/9/24 10:04:00
--
明白了,需要每个表每个表去添加样式是吧
能否所有的表都统一添加:样式?

--  作者：有点蓝
--  发布时间：2022/9/24 10:07:00
--
不能