请帮助看一下，为何只统计开始日期的一个月的数值？
此主题相关图片如下：21.jpg
代码
Dim g As New sqlGroupTableBuilder("统计表1","坯布输入")
g.C
Dim dt1 As fxDataSource
g.Filter = " 日期 >= #" & e.Form.Controls("DateTimePicker22").Value & "# And 日期 <= #" & e.Form.Controls("DateTimePicker23").Value & "# And 双面= false"
g.Groups.AddDef("年")
g.Groups.AddDef("月")
g.Totals.AddDef("总长","单面_长度")
g.Totals.AddDef("织造车间扣分","单面_实际扣分")
g.Decimals = 2
g.FromServer = True
dt1 = g.BuildDataSource()
Dim g1 As New sqlGroupTableBuilder("统计表2","坯布输入")
g1.C
Dim dt2 As fxDataSource
g1.Filter = " 日期 >= #" & e.Form.Controls("DateTimePicker22").Value & "# And 日期 <= #" & e.Form.Controls("DateTimePicker23").Value & "# And 双面= True"
g1.Groups.AddDef("年")
g1.Groups.AddDef("月")
g1.Totals.AddDef("总长","双面_长度")
g1.Totals.AddDef("织造车间扣分","双面_实际扣分")
g1.Decimals = 2
g1.FromServer = True
dt2 = g1.BuildDataSource()
Dim g2 As New sqlGroupTableBuilder("统计表3","坯布输入")
g2.C
Dim dt3 As fxDataSource
g2.Filter = " 日期 >= #" & e.Form.Controls("DateTimePicker22").Value & "# And 日期 <= #" & e.Form.Controls("DateTimePicker23").Value & "#"
g2.Groups.AddDef("年")
g2.Groups.AddDef("月")
g2.Totals.AddDef("总长")
g2.Totals.AddDef("织造车间扣分")
g2.Decimals = 2
g2.FromServer = True
dt3 = g2.BuildDataSource()
Dim nms As String() = { "年","月"} '指定连接列
dt1.Combine(nms,dt2,nms)
dt1.Combine(nms,dt3,nms)
Tables("导航_Table14").DataSource = dt1 '将统计结果绑定到Tabl
With DataTables("导航_Table14").DataCols
.Add("单面_理论扣分",Gettype(Double))
.Add("双面_理论扣分",Gettype(Double))
.Add("单面_奖罚",Gettype(Double))
.Add("双面_奖罚",Gettype(Double))
End With
Dim r As Row = Tables("导航_Table14").Current
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox21") '单面扣分标准
r("单面_理论扣分") = r("单面_长度") * txt.Text
Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox22") '双面扣分标准
r("双面_理论扣分") = r("双面_长度") * txt1.Text
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox23") '扣分标准单价
r("单面_奖罚") = (r("单面_理论扣分") - r("单面_实际扣分"))* txt2.Text
r("双面_奖罚") = (r("双面_理论扣分") - r("双面_实际扣分"))* txt2.Text
[此贴子已经被作者于2013-2-23 14:06:11编辑过]
加好友 
发短信
Post By：2013/2/23 14:02:00 [显示全部帖子]
