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

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

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

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2016/4/15 12:22:00 [只看该作者]

加了日期排序后，日期没有了。

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 & "'")

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

yyzlxc

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

加好友

发短信

等级：七尾狐帖子：1525 积分：10580 威望：0 精华：0 注册：2008/9/24 11:16:00

Post By：2016/4/15 16:27:00 [只看该作者]

大红袍老师，日期排序问题通过代码圆满解决，但是在填充工效时出错，请再帮助看看，谢谢了。

此主题相关图片如下：捕获8.png

大红袍

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | 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