Dim drs As List(Of DataRow) = DataTables("预算").Select("[日期] Is Not Null")

For Each dr As DataRow In drs

    For Each dc As DataCol In DataTables("预算").DataCols

        Select Case dc.Name

            Case "日期","星期"

            Case Else

                If dr.IsNull(dc.Name) = False Then

                    Dim r As Row = Tables("销售量").Addnew

                    r("日期") = dr("日期")

                    r("星期") = dr("星期")

                    r("类目") = dc.Name 

                    r("数量") = dr(dc.Name)

                End If

        End Select

    Next

Next