dim tmpar as new adodb.recordset
tmpar.open " select cname,sum(a) as a,sum(b) as b,sum(c) as c,sum(d) as d from tablename group by cname"
set mshflexgrid.datasource=tmpar
set tmpar=nothing
tmpar.open " select cname,sum(a) as a,sum(b) as b,sum(c) as c,sum(d) as d from tablename group by cname"
set mshflexgrid.datasource=tmpar
set tmpar=nothing
dim tmpar as new adodb.recordset
说是“用户定义类型未定义”
1 将MSFlexGrid的datasource属性设置为控件Data1。
2 加入下列代码:data1.recordsource= "select cname,sum(a) as aa,sum(b) as bb,sum(c) as cc,sum(d) as dd from tablename group by cname"