Dim d1 As Date = e.Form.Controls("DateTimePicker1").Value
Dim filter1 As String = "1=1"
If e.Form.Controls("RadioButton1").Checked Then
Dim w As Integer = d1.DayOfWeek '算出今天是星期几
Dim dt1 As Date = d1.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = d1.AddDays(6 - w) '获取本周的最后一天
filter1 = "回款日期 >= #" & dt1 & "# and 回款日期 <= #" & dt2 & "#"
Else If e.Form.Controls("RadioButton2").Checked Then
Dim y As Integer = d1.Year
Dim m As Integer = d1.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天
filter1 = "回款日期 >= #" & dt1 & "# and 回款日期 <= #" & dt2 & "#"
Else If e.Form.Controls("RadioButton3").Checked Then
Dim y As Integer = d1.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
filter1 = "回款日期 >= #" & dt1 & "# and 回款日期 <= #" & dt2 & "#"
Else If e.Form.Controls("RadioButton5").Checked Then
Dim y As Integer = d1.Year
Dim q As Integer = (d1.Month - 1) \ 3 + 1 '计算现在是第几个季度
Dim dt1 As New Date(y, 3 * (q - 1) + 1, 1) '获取本季度的第一天
Dim dt2 As New Date(y, 3 * q, Date.DaysInMonth(y,3 * q)) '获取本季度的最后一天
Filter1 = "回款日期 >= #" & dt1 & "# And 回款日期 <= #" & dt2 & "#"
Else If e.Form.Controls("RadioButton4").Checked Then
filter1 = "1=1"
End If
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim dt As DataTable = DataTables("表A") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
'Dim qys As List(Of String) = dt.GetValues("区域", "区域 is not null")
Dim tjs As String() = {"销售额","货物成本","物流成本","其它成本","合计成本","利润"}
'For Each qy As String In qys
Series = Chart.SeriesList.Add() '增加一个图系
'Series.Text = qy '设置图系的标题
'Series.Length = qys.Count '设置图系的长度
For r As Integer = 0 To tjs.length - 1
Dim sum As Double = dt.Compute("sum(" & tjs(r) & ")", filter1)
Series.X(r) = r
Series.Y(r) = sum
Next
Next
此主题相关图片如下：360截图20140730211839604.jpg
加好友 
发短信
Post By：2014/7/30 20:57:00 [只看该作者]
