以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  看明白了这个  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22038)

--  作者:gygck
--  发布时间:2012/7/31 20:19:00
--  看明白了这个
Dim r As Row = Tables("成绩表").Current
Dim rp As New RtfPrinter(ProjectPath & "奖  状.rtf")
rp.Replace("{班级}", r("班级") & "班")
rp.Replace("{姓名}", r("姓名"))
rp.Preview()