老师们帮忙解决下如何用临时表更新正式表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师们帮忙解决下如何用临时表更新正式表

共有3261人关注过本帖树形打印复制链接主题：老师们帮忙解决下如何用临时表更新正式表

wangguiwang

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

加好友

发短信

等级：婴狐帖子：46 积分：435 威望：0 精华：0 注册：2015/6/6 14:32:00

老师们帮忙解决下如何用临时表更新正式表 发帖心情

Post By：2015/10/8 9:58:00 [只看该作者]

请老师们、高手们帮忙解决下这个难题：

如何用附件中窗口TABLE“模拟过账”这个临时表里的“库存单价”列，通过单击“模拟过账”这个按扭，进行更新“仓库单据明细”表中的“库存单价”列。

要求1.根据两个表里对应的物料编码，进行条件匹配。

2.根据窗口TABLE“模拟过账”中“开始日期”、“结束日期”的控件，与“仓库单据明细”表中的“日期列” 进行条件匹配。

3. “仓库单据明细”表中的“出入库类型” 等于CK。

大红袍

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

加好友

发短信

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

Post By：2015/10/8 10:06:00 [只看该作者]

循环临时表的每一行，然后合成条件，用replacefor替换明细表的单价即可。

wangguiwang

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

加好友

发短信

等级：婴狐帖子：46 积分：435 威望：0 精华：0 注册：2015/6/6 14:32:00

Post By：2015/10/8 10:16:00 [只看该作者]

大红袍老师：能否帮我这段代码写一下，这个问题我研究了好长时间了，都没能如愿，实在是搞不定。

大红袍

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

加好友

发短信

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

Post By：2015/10/8 10:38:00 [只看该作者]

参考代码

for each r as row in tables("表A").rows
DataTables("表B").ReplaceFor("第一列", r("第一列"), "第二列 = '" & r("第二列") & "'")
Next

wangguiwang

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

加好友

发短信

等级：婴狐帖子：46 积分：435 威望：0 精华：0 注册：2015/6/6 14:32:00

Post By：2015/10/8 10:40:00 [只看该作者]

好的，我先试下，谢谢老师。

wangguiwang

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

加好友

发短信

等级：婴狐帖子：46 积分：435 威望：0 精华：0 注册：2015/6/6 14:32:00

Post By：2015/10/10 9:40:00 [只看该作者]

大红袍老师：这两天我按照你给的参考代码再增加了条件做了下，但还是不行。以下是我这边自己写的代码，但是根本就行不通，现在我的这个小系统就差这个最后的难题了，还得烦请老师再帮我指导一下，谢谢！

For Each r As Row In Tables("收发存查询_Table1").rows

Dim dr As DataRow

dr = DataTables("出入库单明细").Find("物料编码 = " & r("物料编码") AND "CK = " & r("出入库类型") AND "e.Form.Controls("开始日期")

<= " & r("日期")AND "e.Form.Controls("结束日期")>= " & r("日期"))

If dr IsNot Nothing Then

DataTables("出入库单明细").ReplaceFor("出库单价", r("库存单价"))

End If

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/10/10 16:38:00 [只看该作者]

For Each r As Row In Tables("收发存查询_Table1").rows
DataTables("出入库单明细").ReplaceFor("出库单价", r("库存单价"), "物料编码 = '" & r("物料编码") & "' And CK = '" & r("出入库类型") & "' And 开始日期 <= #" & r("日期") & "# And 结束日期 >= #" & r("日期") & "#")
Next

wangguiwang

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

加好友

发短信

等级：婴狐帖子：46 积分：435 威望：0 精华：0 注册：2015/6/6 14:32:00

Post By：2015/10/10 16:54:00 [只看该作者]

Hyphen：非常感谢，不过在运行的时候还有点小问题，不过现在我感觉离成功不远了。真心谢谢。

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

主题：老师们帮忙解决下如何用临时表更新正式表