这个fill怎么只返回最后一条记录？要怎么才能全部显示？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这个fill怎么只返回最后一条记录？要怎么才能全部显示？

共有5135人关注过本帖树形打印复制链接主题：这个fill怎么只返回最后一条记录？要怎么才能全部显示？

hitzfeld

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

加好友

发短信

等级：二尾狐帖子：528 积分：5184 威望：0 精华：0 注册：2017/9/1 23:28:00

这个fill怎么只返回最后一条记录？要怎么才能全部显示？ 发帖心情

Post By：2023/2/7 23:29:00 [只看该作者]

Dim x As String = e.Form.Controls("textbox23").Text

Dim drs As List(Of DataRow) = DataTables("出库明细").SQ/Select("单号 = '" & x & "'", "", "出库日期 ")

For Each dr5 As DataRow In drs

If dr5 IsNot Nothing Then

Tables("查询_table4").Fill("Se/ect * Fr om {出库单} Where [出库单号] = '" & dr5("出库单号") & "'", "xxxx", False)

msgbox(dr5("出库单号"))

End If

这里的出库单号有三条记录，msgbox返回的也是三条，但是fill只有最后一条。感觉是前两条被覆盖了？要怎么才能在Tables("查询_table4")显示全部记录？

cd_tdh

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

加好友

发短信

等级：狐精帖子：3209 积分：21331 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2023/2/8 8:30:00 [只看该作者]

不是fill问题，是你msgbox问题。

有点蓝

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

加好友

发短信

等级：超级版主帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/2/8 8:37:00 [只看该作者]

Dim x As String = e.Form.Controls("textbox23").Text
Tables("查询_table4").Fill("Select * From {出库单} Where [出库单号] in (select 出库单号 from 出库明细 where 单号 = '" & x & "')", "xxxx", False)

hitzfeld

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

加好友

发短信

等级：二尾狐帖子：528 积分：5184 威望：0 精华：0 注册：2017/9/1 23:28:00

Post By：2023/2/8 15:08:00 [只看该作者]

蓝老师，在您的指导下，我终于得到了希望的结果，但是在调试的时候，发现这个fill的结果不能排序？不管怎么改都是按日期升序排列？

Dim x As String = e.Form.Controls("textbox23").Text

Dim drs As List(Of DataRow) = DataTables("出库明细").SQ/Select("单号 = '" & x & "'", "", "出库日期 DESC")

Dim drs As List(Of DataRow) = DataTables("出库明细").SQLSe/ect("工作单号 = '" & x & "'", "", "出库日期 DESC")

For Each dr5 As DataRow In drs

If dr5 IsNot Nothing Then

Tables("查询_table4").Fill("Select * Fr om {出库单} Where [出库单号] in (se/ect 出库单号 fr om 出库明细 where 单号 = '" & x & "') ORDER BY 出库日期 DESC", "packaging", False)

End If