- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何将一个表列名上的日期转成另一个表的日期型数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34779)
-- 发布时间：2013/6/15 12:52:00
-- 如何将一个表列名上的日期转成另一个表的日期型数据
各位大师好！我正在做一个“产品交期回复表”和“发货计划表”，“产品交期回复表”是客户的模版，样式不能改变。列名显示日期，但列的数据类型为数字型。“产品交期回复表”如下：
产品编码 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
请高人指点。谢谢！
-- 发布时间：2013/6/15 14:06:00
--
请上例子.
-- 发布时间：2013/6/15 14:30:00
--
做个按钮，代码大概如此：
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
搞不定就做个例子发上来，因为任何人写代码，都不会一气呵成，需要测试分析，有例子可以测试好发给你，否则最多只能是大概写一下。
-- 发布时间：2013/6/15 14:44:00
--
附件为将要回复客户的交期回复，我们有5各客服人员，要分别处理不同的客户的交期回复， 我想把这张表导入到狐表，生成交期回复表，几名客服人员分头处理，黄色背景的单元格是客户要求的交货数量，客服人员要在下面的白色单元格内，输入承诺的交货数量，我希望当完成输入承诺的交货数量后，可自动写入按时间顺序的发货计划表，（该表结构如说明书中的定单表）
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:book1.xlsx |
-- 发布时间：2013/6/15 14:47:00
--
这样你至少加个狐表例子吧,不然别人还得给你做.还不一定完全符合你要求.
-- 发布时间：2013/6/15 15:01:00
--
刚收到Ukey,用开发版做例子可以吗？还是用使用版举例？
-- 发布时间：2013/6/15 15:11:00
--
随便任何版本都可以.
-- 发布时间：2013/6/16 0:12:00
--
以上传我在做的项目，产品"交期回复表"在此为“forecastTable", "发货计划表”在此为“shippingTable", “客户编码”在此为“StiokivsPN",发货日期在此为“DemandDate", W25, W26为第25周，第26周，我打算以每周的需求在周一发货，W25的周一为6月17日， W26的周一为6月24日，当在ForecastTable中的各列（W25, 26, 27...)录入数值后（需要数量），自动在shippingTable中以每周一的日期发货计划（数量）。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:销售预测管理.foxdb |
-- 发布时间：2013/6/16 10:03:00
--
做个按钮，按钮代码：
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
-- 发布时间：2013/6/16 10:51:00
--
太神奇了。谢谢！