16,547
社区成员
发帖
与我相关
我的任务
分享
DataGridView1.DataSource = Nothing
DataGridView1.DataSource = Nothing
MyDs.Clear()
Dim SQLStr As String = "Select num as 编号,jine as 金额,date as 日期,name as 经手人,type as 项目,inorout as 收支,bz as 备注 From rcsz where date between '" & DateTimePicker1.Value & "' and '" & DateTimePicker2.Value & "'"
Mycom.Connection = Mycon
Mycom.CommandType = CommandType.Text
Mycom.CommandText = SQLStr
MyDataAdapter.SelectCommand = Mycom
MyDataAdapter.Fill(MyDs, "rcsz")
Dim idx As Integer
Dim totalIN As Integer = 0 '总收入
Dim totalOUT As Integer = 0 '总支出
'根据inorout的内容计算总收入与总支出
For idx = 0 To MyDs.Tables("rcsz").Rows.Count - 1
If MyDs.Tables("rcsz").Rows(idx)(5).ToString().Trim() = "收入" Then
totalIN = totalIN + CInt(MyDs.Tables("rcsz").Rows(idx)(1).ToString().Trim())
ElseIf MyDs.Tables("rcsz").Rows(idx)(5).ToString().Trim() = "支出" Then
totalOUT = totalOUT + CInt(MyDs.Tables("rcsz").Rows(idx)(1).ToString().Trim())
End If
Next
'添加总收入行
Dim drIN As DataRow = MyDs.Tables("rcsz").NewRow()
drIN.Item(0) = "总收入:"
drIN.Item(1) = totalIN.ToString().Trim()
MyDs.Tables("rcsz").Rows.Add(drIN)
'添加总支出行
Dim drOUT As DataRow = MyDs.Tables("rcsz").NewRow()
drOUT.Item(0) = "总支出:"
drOUT.Item(1) = totalOUT.ToString().Trim()
MyDs.Tables("rcsz").Rows.Add(drOUT)
navigator = Me.BindingContext(MyDs, "rcsz")
DataGridView1.DataSource = MyDs
DataGridView1.DataMember = "rcsz"
”之内哦,不是写在这个后面
”之内哦,不是写在这个后面