主题：如何将一个表列名上的日期转成另一个表的日期型数据

做个按钮，按钮代码：

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

做了按钮，效果不不错，但发现生成的“shippingTable"有太多的行（因为产品多，Forecasttable wk数量多），希望在此代码的基础上做修改，只生成自Date. Today 后三周的计划。请指点! 现谢了。