Dim otherdt As String = "日历|其他表"
Dim sqlstr As String = ""
For Each dt As DataTable In DataTables
If dt.Caption IsNot Nothing AndAlso otherdt.Contains(dt.Caption) = False AndAlso otherdt.Contains(dt.Name) = False Then
sqlstr += "select '" & dt.Caption & "' As 股piao, 时间, CDbl(left(涨幅, len(涨幅)-1)) as 涨幅 from {" & dt.Name & "}"
sqlstr += " union "
End If
Next
sqlstr = sqlstr.SubString(0, sqlstr.Length - 7)
sqlstr = "select * from (" & sqlstr & ") As t1 left join {日历} as t2 on (t1.时间=t2.公历年月日)"
Dim q As new QueryBuilder
q.TableName = "股piao汇总"
q.SelectString = sqlstr
q.Build
MainTable = Tables("股piao汇总")
'---------------
Dim g As New CrossTableBuilder("统计表1", DataTables("股piao汇总"))
g.HGroups.AddDef("星期")
g.VGroups.AddDef("股piao")
g.Totals.AddDef("涨幅", AggregateEnum.Average, "涨幅")
g.Build()
MainTable = Tables("统计表1")
'-----------------
g = New CrossTableBuilder("统计表2", DataTables("股piao汇总"))
g.HGroups.AddDef("农历日")
g.VGroups.AddDef("股piao")
g.Totals.AddDef("涨幅", AggregateEnum.Average, "涨幅")
g.Build()
MainTable = Tables("统计表2")
加好友 
发短信
Post By：2013/8/16 21:36:00 [只看该作者]
此主题相关图片如下：666.gif
