以下是引用gdtgl在2008-11-25 1:14:00的发言:
试了1天1晚时间了,终于写出来了(分享1下):
dim barow as row = tables("表A").current
dim babianhao as string = barow("编号")
Dim doc As New Printdoc
Dim rt As New prt.RenderTable
dim af as table = Tables("表A.表F")
With Tables("表A.表F")
rt = New prt.RenderTable
rt.Style.GridLines.All = prt.Linedef.Default '网格线为默认类型
For n As integer = 0 To .Rows.Count - 1
rt.Cells(0,0).Text = "编号"
rt.Cells(0,1).Text ="采样编号"
rt.Cells(0,2+n).Text = .rows(n)("项目")
Dim cmd As New SQLCommand '定义一个SQL命令
Dim dt As DataTable '定义一个数据表变量
cmd.CommandText = "Select 编号,采样编号,值 from {表C} where 编号 = '"& babianhao &"' and 项目= '"& Tables("表A.表F").rows(n)("项目") &"' "
dt = cmd.ExecuteReader() '生成一个临时表
For r As integer = 0 To dt.DataRows.Count - 1
rt.Cells(r+1,0).Text = dt.DataRows(r)("编号")
rt.Cells(r+1,1).Text = dt.DataRows(r)("采样编号")
rt.Cells(r+1,2+n).Text = dt.DataRows(r)("值")
Next
next
End With
doc.Body.Children.Add(rt)
doc.Preview
[此贴子已经被作者于2008-11-25 3:03:25编辑过]
高手,佩服。关于报表我只能按照帮助上的搞搞还行。