Foxtable(狐表)用户栏目专家坐堂 → 请老师检查代码,临时统计表为何不能填充?(已解决)


  共有24259人关注过本帖平板打印复制链接

主题:请老师检查代码,临时统计表为何不能填充?(已解决)

帅哥哟,离线,有人找我吗?
菜鸟foxtable
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
请老师检查代码,临时统计表为何不能填充?(已解决)  发帖心情 Post By: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编辑过]

 回到顶部