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

求助字符串为废品的行才单元格绘制

下面代码所有行都单元格颜色绘制，不懂修改

For Each ar As Row In Tables("产品").rows

If e.Col.Name = "突显" Then

If ar("名称").EndsWith("废品")

e.Style = "红色"

End If

这代码肯定有问题，但不知道实际应用，无法修改，上实例。

If e.Col.Name = "突显" Then

If e.row("名称").EndsWith("废品")

e.Style = "红色"

End If

求助，当前1个单元格边框线设置为加粗红色

if e.Row.index = e.table.rowsel and e.Col.index = e.table.colsel then

焦点单元格，黑色粗线，像Excle，求助

end if

If e.Col.Name = "突显" Then

If e.row("名称").EndsWith("废品")

e.Style = "红色"

e.Graphics.DrawRectangle(Brushes.Red,e.x + 1,e.y + 1, Width, e.Height - 2)

End If

此主题相关图片如下：焦点单元格边框效果.jpg

求助像上图Excle焦点单元格边框效果

上楼代码，报错

把表格样式改为foxtable经典蓝

drawcell事件

If e.Col.Index = e.Table.ColSel AndAlso e.Row.Index = e.Table.RowSel Then

e.Graphics.DrawRectangle(New Pen(Color.Red,2),e.x + 1,e.y + 1, e.Width-4, e.Height - 4)

End If

上楼代码只有在焦点单元格背景色为白色是，才可以显示红色边框。如果焦点单元格已有背景色，就不显示红色边框。求助，焦点单元格有背景色时，焦点单元格也能显示红色边框

如果焦点单元格样式显示背景色和字体颜色后，下面代码，焦点单元格边框没显示红色边框：

If e.Row.index = e.Table.rowsel AndAlso e.Col.name = "正式成果名称" Then

e.style = "样式1"

e.Graphics.DrawRectangle(New Pen(Color.Red,2),e.x + 1,e.y + 1, e.Width-4, e.Height - 4) '当前表样式边框颜色设置

End If

下面代码，如果焦点单元格已有背景色及字体颜色，焦点单元格红色边框，也没显示：

Dim dr As DataRow = DataTables("单元格绘制").find("表名='" & e.Table.name & "' and 列名='" & e.Col.name & "' and 列值='" & e.Row(e.Col.name) & "' And 停用=false")

If dr IsNot Nothing AndAlso e.Col.name = dr("列名") AndAlso e.Row(e.Col.name) = dr("列值") Then

If dr IsNot Nothing Then

Dim s As String = e.Table.name & e.Col.name & dr("列值")

'e.Table.grid.Styles.Remove("User" & s)

e.Table.DataTable.AddUserStyle(s, Color.FromARGB(IIF(dr.Isnull("单元格颜色"),-1,dr("单元格颜色"))), Color.FromARGB(IIF(dr.Isnull("字体颜色"),-1,dr("字体颜色"))) )

e.style =s

e.Graphics.DrawRectangle(New Pen(Color.Red,2),e.x + 1,e.y + 1, e.Width-4, e.Height - 4) '当前表样式边框颜色设置

End If

请上传实例测试

主题：[求助]单元格绘制