主题：[求助]listview隐藏列

DrawViewCell

Dim pn As Pen

Dim n As Integer

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")

If lvw.Columns.Contains("面积")=True Then

    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.Height)

        If lvw.Rows("面积") Is Nothing Then

            e.Graphics.DrawString(cstr(GetDigit(val(lvw.Rows("面积")),8-i)),new Font("宋体",9),Brushes.red,e.x +(i+1/5)*n,e.Y + e.Height*1/5)

        End If

    Next

End If

不起作用