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

如果只生成三周的发货计划，并且ForecastTable中的单元格为空的，在生成的ShippingTable中不显示（目前显示为0）该如何做？谢谢！

如果只生成最近两周的发货计划，并且不显示数量为零的发货，该如何做？

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").Select("日期列名称 >= #" Date.Today.Adddays(-14) & "#")
    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

还得请你帮个忙，如果想保留刷新日之前的发货计划，按钮按下后，只刷新当日后各周的发货计划，按钮代码如何修改？谢谢！

有点甜，你好！

把这一行删除就行了：

DataTables("ShippingTable").DataRows.Clear

 

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.Select("日期列名称 >= #" Date.Today & "# And 日期列名称 <= #" & Date.Today.AddDays(20) & "#")
    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

"ForecastTable" 中的W# 不是日期列，是数值列，填入的是需求数。试了上面的代码，有错误。

 

我重做了各例子，见附件，ForecastTable中的W24-W55是要输入的需求数，完成输入后，想通过一个按钮点击，将ForecastTable的各行间插入一行，插入的行为满足需求数（原先的行为“需求数”插入的行为“满足需求数”），插入的行自动带出上一行的StokvisPN和Customer，然后手工录入W24- W55的数值（完成后的表如“ForecastTable1)，在通过一个按钮，将“满足需求数”的各行生成到ShippingTable，同样只生成自Date. Today 后三周的计划。

 

这个要求和最初的相似，但难度增加了许多。希望各位大师指教。谢谢！

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

点击浏览该文件:管理项目715.table

原来的问题，后三周可以这样处理：