主题：固定列宽

1、如何能固定二列的列宽不能拉动，其他的列宽可以拉动

2、金额不想有个羊

3、合计金额如何才能画出坚线

此主题相关图片如下：qq截图20230403170200.png

Dim pn As Pen
Dim n As Integer
If e.Col.name.EndsWith("方金额") AndAlso e.Col.IsNumeric Then
    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'''''''同3能整除的线蓝色
            End If
        Else
            pn = Pens.tan'''''''同3能整除的线黄色
        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(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)
            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
    e.EndDraw
End If