主题：4月22日更新

老爹加油......尽快推出商业版....我等开发版用呢.

老爹,打印预览应该这样吧:dst.print(true)

另外,设置页面跟专业报表一样吗?

......如果专业报表能直接引用DataList就好了........许多代码可以简化...执行效率也高很多.不用再生成临时表.....
想想办法啊,老爹...
如果能象下面那样多好...

Dim doc As New PrintDoc '定义一个新报表
Dim rt As New prt.RenderTable '定义一个新表格
Dim tb as Table = e.form.Controls("DataList1")
rt.Width = "Auto" '表格宽度为自动，也就是等于各列设置宽度之和
rt.CanSplitHorz = True '表格宽度超
.................
.............
........
.....

可以吗?我指的是直接引用哦,不要告诉我先把DataList生成临时表.....再引用...

茅塞顿开.....类似于下面的代码...自己都用过...居然忘记了.

 Dim doc As New PrintDoc
       
        Dim rxx As New prt.RenderTable
       
        cmd.CommandText = "Select * from [H_ZYXX] where 住院ID = '" & str1 & "'"
        dt = cmd.ExecuteReader() '生成一个临时表
        rxx.Cells(0,0).Text = " "
        rxx.Cells(0,1).Text =  " "
        rxx.Cells(0,2).Text = "  "
       
        rxx.Cells(1,0).Text = "姓名 : " & dt.DataRows(0)("姓名")
        rxx.Cells(1,1).Text =  "住院号 : " & dt.DataRows(0)("住院号")
        rxx.Cells(1,2).Text = " 出院日期 : " & dt.DataRows(0)("出院日期")