-- 作者:菜鸟foxtable
-- 发布时间:2009/2/21 10:49:00
-- 请老师检查代码,临时统计表为何不能填充?(已解决)
其中数据接收表"结算表"为外部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编辑过]
|