其中数据接收表
"结算表"为外部SQL表,有一列int自动增量列"ID".其余为:住院ID,类别,项目,规格,单位,单价,用量
代码如下:
Dim sql As string
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.C
sql = "select 住院ID,项目,规格,类别,单位,单价,用量*天数 AS 用量,round(单价*用量*天数,2) AS 金额 from [H_YIZ] where 住院ID = 200900201"
cmd.CommandText = sql
dt = cmd.ExecuteReader()
Dim g As New GroupTableBuilder("清单",dt)
g.Groups.AddDef("住院ID")
g.Groups.AddDef("类别")
g.Groups.AddDef("项目")
g.Groups.AddDef("规格")
g.Groups.AddDef("单位")
g.Groups.AddDef("单价")
g.Totals.AddDef("用量")
g.Totals.AddDef("金额")
g.Build()
dim f As New Filler
f.SourceTable = DataTables("清单")
f.SourceCols = "住院ID,类别,项目,规格,单位,单价,用量"
f.DataTable = DataTables("结算")
f.DataCols = "住院ID,类别,项目,规格,单位,单价,用量"
f.Fill()
执行出错...

此主题相关图片如下:001.jpg
[此贴子已经被作者于2009-2-21 11:03:20编辑过]