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

各位大师好！我正在做一个“产品交期回复表”和“发货计划表”，“产品交期回复表”是客户的模版，样式不能改变。列名显示日期，但列的数据类型为数字型。“产品交期回复表”如下：

产品编码   6-14-2013   6-15-2013  

P3347     2000           2500           

P4545     8000           4000          

 

希望设计成填入上述数据后自动生成如下“发货计划表“

发货日期           产品编号    发货数量  

6-14-2013       P3347      2000

6-14-2013       P4545      8000

6-15-2013       P3347      2500

6-15-2013       P4545      4000

请高人指点。谢谢！

请上例子. 

做个按钮，代码大概如此：

 

For Each dr1 As DataRow in DataTables("产品交期回复表").Datarows

   For each dc As DataCol In DataTables("产品交期回复表").DataCols

          if dc.name <> "产品编码" Then

               Dim dr2 As DataRow  = DataTables("发货计划表").Addnew

               dr2("产品编码") = dr1("产品编码")

               dr2("发货日期") = dc.name

               dr2("发货数量")  = dr1(dc.name)

          End If

   Next

Next

 

搞不定就做个例子发上来，因为任何人写代码，都不会一气呵成，需要测试分析，有例子可以测试好发给你，否则最多只能是大概写一下。

附件为将要回复客户的交期回复，我们有5各客服人员，要分别处理不同的客户的交期回复， 我想把这张表导入到狐表，生成交期回复表，几名客服人员分头处理，黄色背景的单元格是客户要求的交货数量，客服人员要在下面的白色单元格内，输入承诺的交货数量，我希望当完成输入承诺的交货数量后，可自动写入按时间顺序的发货计划表，（该表结构如说明书中的定单表）

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

点击浏览该文件:book1.xlsx

这样你至少加个狐表例子吧,不然别人还得给你做.还不一定完全符合你要求.

刚收到Ukey,用开发版做例子可以吗？还是用使用版举例？

随便任何版本都可以.

以上传我在做的项目，产品"交期回复表"在此为“forecastTable", "发货计划表”在此为“shippingTable", “客户编码”在此为“StiokivsPN",发货日期在此为“DemandDate", W25, W26为第25周，第26周，我打算以每周的需求在周一发货，W25的周一为6月17日， W26的周一为6月24日，当在ForecastTable中的各列（W25, 26, 27...)录入数值后（需要数量），自动在shippingTable中以每周一的日期发货计划（数量）。

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

点击浏览该文件:销售预测管理.foxdb

做个按钮，按钮代码：

 

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

 

 

太神奇了。谢谢！