-- 作者:菜鸟foxtable
-- 发布时间:2009/2/26 20:28:00
-- datalist汇总出了红XX,请老师检查代码...
模式窗口,只有一个DataList控件,窗口事件AfterLoad代码如下:执行出错....
Dim cmd As New SQLCommand cmd.C Dim dst As WinForm.DataList = e.Form.Controls("DataList1") Dim day As date = date.today cmd.CommandText = "select * from [H_ZYXX] where 状态 = 3 and 结算日期 = \'" & day & "\'" dst.DataTable = cmd.ExecuteReader() dst.ColumnList = "住院号|姓名|结算日期|发票号|合计|记帐金额|个人缴费金额|收费员|审核员|西药|中成药|中草药|床位费|诊查|X光|B超|心电图|护理|治疗|手术|检验|其他|特需服务" dst.Build() dst.GrandTotal(AggregateEnum.Sum,"总计","合计","记帐金额","个人缴费金额","西药","中成药","中草药","床位费","诊查","X光","B超","心电图","护理","治疗","手术","检验","其他","特需服务")
此主题相关图片如下:001.jpg
|