关于单元格绘制与逻辑列联动的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

大红袍老师，我参照论坛中的例子尝试做了个单元格绘制，想实现表A中审核逻辑列未勾选的时候，审核通过列全部显示自动绘制的“未审核”（红色），但审核逻辑列勾选后，自动绘制的“已审核”（蓝色）出现，“未审核”（红色）标签关闭。不知道在这里的IF......应该怎样写来控制自动的想法。

绘制的单元格是否只能实现手动输入文字后才能实现显示绘制，如果用If..... e.Style =...绘制成逻辑列单元格根据条件的色块变化这个自己会做了。

但是上述的自动形式怎样能实现，还是用绘制就不能实现。

下面是初步的代码，没有实现逻辑列控制

If e.Col.Name = "审核状态" Then

e.StartDraw()

Dim msg As String

Dim tl As Integer = e.Text.Length

Select Case tl

Case 2

msg = " " & e.Text & " "

Case 3

msg = " " & e.Text & " "

Case Else

msg = e.Text

End Select

If msg = "" Then Return

If tl <= 4 Then

e.Col.Width = 61

Else

e.Col.width = tl*15+1

End If

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)

Dim br As Brus

If e.Text.Contains("审") Then

n = New Pen(Color.Blue,2)

br = New SolidBrush(color.Blue)

Else

n = New Pen(Color.Red,2)

br = New SolidBrush(color.red)

End If

e.Graphics.DrawRectangle(n,x,e.y + 2,w,h)

e.Graphics.DrawString(msg,fnt,br,x + 1,e.y + 4)

e.Text = ""

e.EndDraw()

End If

主题：关于单元格绘制与逻辑列联动的问题