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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 跨表填充

共有9581人关注过本帖树形打印复制链接主题：跨表填充

floor2

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

加好友

发短信

等级：小狐帖子：369 积分：2911 威望：0 精华：0 注册：2009/4/1 12:51:00

Post By：2012/2/14 12:29:00 [只看该作者]

可不可以用子查询来实现？

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2012/2/14 22:48:00 [只看该作者]

Dim Arys As List(Of String()) = DataTables("进度表").GetUniqueValues("[完工] <> '已完工'", "订单日期","编号")
Dim d,s As String
For Each Ary As String() In Arys
d & = "#" & Ary(0) & "#,"
s & = "'" & Ary(1) & "',"
Next
Tables("彩印明细_table1").Fill("Select [订单日期],[客户],[编号] From {订单} where 订单日期 In (" & d.Trim(",") & ") And (编号 In (" & s.Trim(",") & "))","wbbzd",True)

狐狸爸爸

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

加好友

发短信

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

Post By：2012/2/15 9:16:00 [只看该作者]

还是c版方法多。

图片点击可在新窗口打开查看

客人(50.2.*.*)

小大 14楼

Post By：2012/2/16 9:27:00 [只看该作者]

谢谢可以了

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

总数 14 上一页 1 2

主题：跨表填充