主题：求教代码

 

Dim pn As Pen

Dim n As Integer

If e.col.name.EndsWith("金额") AndAlso e.Col.IsNumeric 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 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.red,e.x +(i+1/5)*n,e.Y + e.Height*1/5)

        End If

    Next

End If

 

上述代码中

1.

Dim pn As Pen     pen 是什么类型

2.pens 是什么    类似在帮助中没有，却可以再狐表中应用得知识还有多少

请指教 

   

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:财务金额.table

 看看这一章就差不多了。

http://www.foxtable.com/help/topics/1482.htm