主题：请老师验证下学生的代码是否正确

 太乱。不好改，看2楼。

 看看是这样不？

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
    Dim fdr As DataRow = DataTables("账面明细").Find("销售日期 = '" & dr("日期") & "'")
    If fdr IsNot Nothing Then
        If fdr("项目") = "门市收入"
            fdr("销售金额") = 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))
            Next
            nr("项目") = "门市收入"
        End If
    End If
Next

 呵呵，楼主自己捣鼓出来了。学习就应该是这样的，拿来即用的没有什么成就感。

 呃，真的看不懂你的数据库和代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.zip