项目中有个“订单”表跟“账面明细”表,想在“订单”表窗口中的“按钮”控件事件中加入以下代码实现单击控件后从外部数据库中查找符合条件的行并进行统计,
如果没有符合条件则在“账面明细”表中增加一行,将指定的数据填入“账面明细”表中
注:“账面明细”表中有个“项目”列,“订单”表中没有,数据为外部数据,后面加上注释,看下代码写的对不对
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"销售日期", "销售金额", "付款渠道"}
Dim dCols() As String = {"日期", "收入", "收入渠道"}
cmd.C
cmd.CommandText = "SELECT * From {账面明细}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
If DataTables("账面明细").Find("销售日期 = '" & dr("日期") & "'") Is Nothing Then 如果“账面明细”表中已经存在相同日期的行
If e.DataRow("项目") = "门市收入" 如果“项目”列中的内容为“门市收入”
e.DataRow("销售金额") = DataTables("账面明细").Compute("Sum(收入)", Filter) 将“订单”表中的“销售金额”列跟“账面明细”表中的“收入”列进行统计
Else
Dim nr As DataRow = DataTables("账面明细").AddNew()
For i As Integer =0 To sCols.Length -1
nr(dCols(i)) = dr(sCols(i))
e.DataRow("项目") = "门市收入" 否则在“账面明细”表中增加一行,将“订单”表中指定的数据列填入到“账面明细”表中,“账面明细”表中的“项目”列内容为“门市收入”
Next
End If
End If
Next
求教老师指点一、二