Dim y As Integer = e.Form.Controls("ComboBox1").text
Dim m As Integer = e.Form.Controls("ComboBox2").text
Dim s As String = e.Form.Controls("checkedComboBox1").text
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
Dim m1 As Integer = e.Form.Controls("ComboBox2").text
Dim dt3 As New Date(y, m1, 1)
Dim dt4 As New Date(y, m1, Date.DaysInMonth(y,m)) '获取该月的最后一天
dt3 = dt3.AddMonths(-1)
dt4 = dt4.AddMonths(-1)
Dim g1 As New GroupTableBuilder("上月销售统计", DataTables("SG_Gathering"))
g1.Groups.AddDef("vShop")
g1.Groups.AddDef("vSPCode")
g1.Groups.AddDef("dtDate", DateGroupEnum.None)
g1.Totals.AddDef("fRealMoney")
g1.FromServer = True
g1.Filter = "dtdate >= '" & dt3 & "' And dtdate <= '" & dt4 & "' and vShop in ('" & s.replace(",", "','") & "')"
g1.Build()
Dim g As New GroupTableBuilder("本月销售统计", DataTables("SG_Gathering"))
g.Groups.AddDef("vShop")
g.Groups.AddDef("vSPCode")
g.Groups.AddDef("dtDate", DateGroupEnum.None)
g.Totals.AddDef("fRealMoney")
g.FromServer = True
g.Filter = "dtdate >= '" & dt1 & "' And dtdate <= '" & dt2 & "' and vShop in ('" & s.replace(",", "','") & "')"
g.Build()
这段代码是有什么问题吗？为什么我统计出来没有当月最后一天
加好友 
发短信
Post By：2020/11/3 0:31:00 [只看该作者]
