主题：窗口DrawCell部份不执行

        e.StartDraw

        For i As Integer = 1 To 10

            If i Mod 3 = 0 Then

                If i = 9 Then

                    pn = Pens.Red

                Else

                    pn = Pens.LightSlateGray

                End If

            Else

                pn = Pens.tan

            End If

            n = cint(e.Width / 11)  '获取单位宽度

            e.Graphics.DrawLine(pn,e.x+i*n,e.y,e.x+i*n,e.y+e.Height)

            If e.Row.IsNull(e.Col.Name) = False Then

                e.text = ""

                e.Graphics.DrawString(cstr(GetDigit(e.Row(e.Col.name),8-i)),new Font("雅黑",9),Brushes.Black,e.x +(i+1/5)*n,e.Y + e.Height*1/5)

            End If

        Next

        If e.Row("样式")=True Then

            e.style="样式1"

        Else

            e.style="样式2"

        End If

        e.EndDraw

金额线能执行

设置行不同颜色不执行

执行后的图如下

此主题相关图片如下：b37523bc139b0eef7e69ce326fe6f21.png