做个按钮,按钮代码:
Dim dt1 As Date = new Date(Date.Today.Year,1,1)
dt1 = dt1.AddDays(-dt1.DayOfWeek + 1)
DataTables("ShippingTable").DataRows.Clear
DataTables("ShippingTable").StopRedraw
For Each dr1 As DataRow In DataTables("ForecastTable").Datarows
For Each dc As DataCol In DataTables("ForecastTable").DataCols
If dc.name Like "W#*"
Dim dr2 As DataRow = DataTables("ShippingTable").Addnew
dr2("Customer") = dr1("Customer")
dr2("StokvisPN") = dr1("StokvisPN")
dr2("ShippingQuantity") = dr1(dc.name)
Dim wk As Integer = dc.name.SubString(1)
dr2("DemandDate") = dt1.AddDays(wk * 7)
End If
Next
Next
DataTables("ShippingTable").ResumeRedraw