If e.DataCol.Name = "项目类别" Then
If e.DataRow("年份")=""
messagebox.show("请先选择年份")
e.DataRow("项目类别") = Nothing
Else
Dim m1 As Double
Dim m2 As Double
Dim m3 As Double
Dim m4 As Double
Dim m5 As Double
Dim m6 As Double
Dim m7 As Double
Dim m8 As Double
Dim m9 As Double
Dim m10 As Double
Dim m11 As Double
Dim m12 As Double
Dim Tol As Double
m1=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 1")
m2=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 2")
m3=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 3")
m4=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 4")
m5=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 5")
m6=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 6")
m7=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 7")
m8=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 8")
m9=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 9")
m10=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 10")
m11=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 11")
m12=DataTables("现金细目").Compute("Sum(支出)","年份= '"& e.DataRow("年份") & "'and 项目类别= '"& e.DataRow("项目类别") & "'and 月份= 12")
If m1 =0
e.DataRow("一月")=Nothing
Else
e.DataRow("一月")=m1
End If
If m2 =0
e.DataRow("二月")=Nothing
Else
e.DataRow("二月")=m2
End If
If m3 =0
e.DataRow("三月")=Nothing
Else
e.DataRow("三月")=m3
End If
If m4 =0
e.DataRow("四月")=Nothing
Else
e.DataRow("四月")=m4
End If
If m5 =0
e.DataRow("五月")=Nothing
Else
e.DataRow("五月")=m5
End If
If m6 =0
e.DataRow("六月")=Nothing
Else
e.DataRow("六月")=m6
End If
If m7 =0
e.DataRow("七月")=Nothing
Else
e.DataRow("七月")=m7
End If
If m8 =0
e.DataRow("八月")=Nothing
Else
e.DataRow("八月")=m8
End If
If m9 =0
e.DataRow("九月")=Nothing
Else
e.DataRow("九月")=m9
End If
If m10 =0
e.DataRow("十月")=Nothing
Else
e.DataRow("十月")=m10
End If
If m11 =0
e.DataRow("十一月")=Nothing
Else
e.DataRow("十一月")=m11
End If
If m12 =0
e.DataRow("十二月")=Nothing
Else
e.DataRow("十二月")=m12
End If
Tol=m1+m2+m3+m4+m5+m6+m7+m8+m9+m10+m11+m12
If Tol=0
e.DataRow("总支出")=Nothing
Else
e.DataRow("总支出")=Tol
End If
End If
End If
加好友 
发短信
Post By：2018/1/17 17:14:00 [显示全部帖子]
