Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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()
http://www.microsoft.com/downloads/details.aspx?familyid=39C8B63B-F64B-4B68-A774-B64ED0C32AE7&displaylang=zh-cn