主题：如何实现某一列的所有单元格边框颜色为红色

如何实现某一列的所有单元格边框颜色为红色，如下图效果

方法一：drawcell事件

 

If e.Col.Name = "第一列"  Then
    e.StartDraw()
   
   
    Dim msg As String=e.Text
    Dim tl As Integer = e.Text.Length
    Dim w As Integer = e.Width -4
    Dim h As Integer = e.Height-4
    Dim x As Integer = e.x + (e.Width - w)/2
    Dim n As Pen
    Dim fnt As New Font("楷体",9,FontStyle.Bold)
    Dim br As Brush
    n = New Pen(Color.Green,2)
    br = New SolidBrush(color.Green)
    Dim sf As new StringFormat
    sf.Alignment = StringAlignment.Center
    sf.LineAlignment = StringAlignment.Center
    e.Graphics.DrawRectangle(n,x,e.y + 2,w,h)
    e.Graphics.DrawString(msg,fnt,Brushes.black,  new Rectangle(e.x, e.y, e.width, e.height), sf)
    e.Text = ""
    e.EndDraw()
End If

方法二：

 

Tables("表A").Grid.cols("第二列").Style.Border.Style = 2  
Tables("表A").Grid.cols("第二列").Style.Border.width = 2  
Tables("表A").Grid.cols("第二列").Style.Border.Color = Color.red

收到，功能实现，非常感谢。

尽管是一老狐，仍然对狐表官方的服务点赞与感动！

单击某一行时设置了该行突出显示，如何实现让某一列不在突出显示范围内呢？

那不能设置【整行】，必须用drawcell事件【突出】

 

http://www.foxtable.com/webhelp/scr/0656.htm

 

我知道DRAWCELL，可是如何控制那一列在鼠标选中行的时候不被突出显示呢？那一列的内容都是循环的两个值，要么是A要么是B

if e.col.name <> "某列" then

勾选的行设置边框颜色不能用这个吗