[求助]动态表填充（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]动态表填充（已解决）

共有2513人关注过本帖树形打印复制链接主题：[求助]动态表填充（已解决）

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 11:16:00 [显示全部帖子]

增加列这样

For Each rq As String In DataTables("扎包数据").SQLGetValues("日期", "日期 >= '" & dt1 & "' and 日期 <= '" & dt2 & "'")
    If DataTables("工效分析").DataCols.Contains("工效_" & rq) = False Then
        DataTables("工效分析").DataCols.Add("工效_" & rq,Gettype(Double), rq)
    End If
Next

计算这样

For Each dr As Row In Tables("工效分析").Rows

If dr.IsNull("节拍序号") = False Then

Dim pr As DataRow = DataTables("扎包数据").SQLFind("日期 = '" & dr.Caption & "' And 节拍序号 = '" & dr("节拍序号") & "' And 工位ID = '" & gwid & "'")

If pr IsNot Nothing Then

dr("工效") = pr("工效")

End If

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 11:38:00 [显示全部帖子]

写错了

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 11:45:00 [显示全部帖子]

For Each rq As String In DataTables("扎包数据").SQLGetValues("日期", "日期 >= '" & dt1 & "' and 日期 <= '" & dt2 & "'")

    rq = rq.Split(" ")(1)
    If DataTables("工效分析").DataCols.Contains("工效_" & rq) = False Then
        DataTables("工效分析").DataCols.Add("工效_" & rq,Gettype(Double), "", rq)
    End If
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 11:46:00 [显示全部帖子]

或者

For Each rq As String In DataTables("扎包数据").SQLGetValues("日期", "日期 >= '" & dt1 & "' and 日期 <= '" & dt2 & "'")

Dim d As Date = rq

    rq = Format(d, "yyyy-MM-dd")
    If DataTables("工效分析").DataCols.Contains("工效_" & rq) = False Then
        DataTables("工效分析").DataCols.Add("工效_" & rq,Gettype(Double), "", rq)
    End If
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 12:04:00 [显示全部帖子]

我测试没问题。试试

For Each rq As String In DataTables("扎包数据").SQLGetValues("日期", "日期 >= '" & dt1 & "' and 日期 <= '" & dt2 & "'", "日期")

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 12:29:00 [显示全部帖子]

那用代码吧

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "abc"
cmd.CommandText = "SELECT DISTINCT 日期 Fr om {扎包数据}"
dt = cmd.ExecuteReader()

For Each rq As String In dt.GetValues("日期", "日期 >= '" & dt1 & "' and 日期 <= '" & dt2 & "'")

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 12:29:00 [显示全部帖子]

或者

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "abc"
cmd.CommandText = "SELECT DISTINCT 日期 Fr om {扎包数据} where 日期 >= '" & dt1 & "' and 日期 <= '" & dt2 & "'"
dt = cmd.ExecuteReader()

For Each rq As String In dt.DataRows

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 16:30:00 [显示全部帖子]

For Each dr As Row In Tables("工效分析").Rows
    If dr.IsNull("节拍序号") = False
        For Each dc As Col In Tables("工效分析").cols
            If dc.Caption <> "节拍序号" Then
                Dim pr As DataRow = DataTables("扎包数据").SQLFind("日期 = '" & dc.Caption & "' And 节拍序号 = '" & dr("节拍序号") & "' And 工位ID = '" & gwid & "'")
                If pr IsNot Nothing Then
                    dr("工效") = pr("工效")
                End If
            End If
        Next
    End If
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/4/15 16:47:00 [显示全部帖子]

dr(dc.Name) = pr("工效")

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

主题：[求助]动态表填充（已解决）