如何将一个表列名上的日期转成另一个表的日期型数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将一个表列名上的日期转成另一个表的日期型数据

共有6250人关注过本帖树形打印复制链接主题：如何将一个表列名上的日期转成另一个表的日期型数据

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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

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

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/6/20 8:41:00 [显示全部帖子]

把这一行删除就行了：

DataTables("ShippingTable").DataRows.Clear

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/7/15 17:27: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.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

下一主题 >> << 上一主题

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