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