主题:为动态数据窗口某一列求和
以下是用语句实现创建数据窗口,我想把为金额这一列《求和》怎么表达呢????
//动态数据窗口dw_1创建实例
string lserr,lsSQLstr,lsDWsyntax,lserrC
//下面3条语句即为关键,若dw_1为鼠标点建请删除这3条语句,否则会出错。
//DataWindow dw_1 //若采用数据窗口用户对象u_d_sample,则可改为:u_d_sample dw_1
//dw_1=Create DataWindow //若采用数据窗口用户对象u_d_sample,此句应去除。
//OpenUserObject(dw_1)
//可根据实际情况设计生成Select语句及Where子句的可视化界面
lsSQLstr="Select 姓名,产品名称,单价,包数,金额,日期,备注 from cp order by 姓名,日期 asc"
lsDwsyntax=SQLCA.SyntaxFromSQL(lsSQLstr,"style(type=Grid)",lserr) //构造SyntaxFromSQL()函数
If Len(lserr)>0 Then
//如果构造SyntaxFromSQL()函数失败,则显示错误信息并退出
messagebox("错误信息!",lserr)
Return
end if
dw_1.Create(lsDwsyntax,lserrC) //创建动态数据窗口dw_1
If Len(lserrC)>0 Then
//如果创建动态数据窗口dw_1失败,则显示错误信息并退出
messagebox("错误信息!",lserrC)
Return
end if
//以下设置dw_1的一些属性,可根据实际需要设置。
//dw_1.X=5
//dw_1.Y=5
//dw_1.width=5000
//dw_1.height=1200
//dw_1.Visible=True
//dw_1.Enabled=True
//dw_1.HScrollBar=True
//dw_1.VScrollBar=True
//为dw_1分配事务对象SQLCA
dw_1.SetTransObject(SQLCA)
//提取数据
dw_1.Retrieve()
//动态数据窗口dw_1创建实例
string lserr,lsSQLstr,lsDWsyntax,lserrC
//下面3条语句即为关键,若dw_1为鼠标点建请删除这3条语句,否则会出错。
//DataWindow dw_1 //若采用数据窗口用户对象u_d_sample,则可改为:u_d_sample dw_1
//dw_1=Create DataWindow //若采用数据窗口用户对象u_d_sample,此句应去除。
//OpenUserObject(dw_1)
//可根据实际情况设计生成Select语句及Where子句的可视化界面
lsSQLstr="Select 姓名,产品名称,单价,包数,金额,日期,备注 from cp order by 姓名,日期 asc"
lsDwsyntax=SQLCA.SyntaxFromSQL(lsSQLstr,"style(type=Grid)",lserr) //构造SyntaxFromSQL()函数
If Len(lserr)>0 Then
//如果构造SyntaxFromSQL()函数失败,则显示错误信息并退出
messagebox("错误信息!",lserr)
Return
end if
dw_1.Create(lsDwsyntax,lserrC) //创建动态数据窗口dw_1
If Len(lserrC)>0 Then
//如果创建动态数据窗口dw_1失败,则显示错误信息并退出
messagebox("错误信息!",lserrC)
Return
end if
//以下设置dw_1的一些属性,可根据实际需要设置。
//dw_1.X=5
//dw_1.Y=5
//dw_1.width=5000
//dw_1.height=1200
//dw_1.Visible=True
//dw_1.Enabled=True
//dw_1.HScrollBar=True
//dw_1.VScrollBar=True
//为dw_1分配事务对象SQLCA
dw_1.SetTransObject(SQLCA)
//提取数据
dw_1.Retrieve()