文章套打 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码放在按钮中，另配合文件
Dim tbl As Table = Tables("成绩表")
Dim n As Integer= (tbl.BottomRow-tbl.TopRow)+1 Mod 2
n = n Mod 2
Dim m As Integer
For i as Integer = tbl.TopRow To tbl.BottomRow
    If n=1 AndAlso i=tbl.BottomRow Then
        Dim rp As New RtfPrinter("D:\狐表文件\奖__状\1奖状.rtf")
        rp.Replace("{班级}", Tables("成绩表")(i,"班级") &"班 ")
        rp.Replace("{姓名}",Tables("成绩表")(i,"姓名") & ":")
        rp.Preview()
    Else
        Dim rp As New RtfPrinter("D:\狐表文件\奖__状\奖状.rtf")
        rp.Replace("{班级}", Tables("成绩表")(i,"班级") &"班 ")
        rp.Replace("{姓名}",Tables("成绩表")(i,"姓名") & ":")

        rp.Replace("{班级1}", Tables("成绩表")(i+1,"班级") &"班 ")
        rp.Replace("{姓名1}",Tables("成绩表")(i+1,"姓名") & ":")
        rp.Preview()
    End If
    i=i+1
Next

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文件夹.rar

[此贴子已经被作者于2010-1-11 19:56:21编辑过]

主题：文章套打