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

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

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

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。

wangguiwang

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

加好友

发短信

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

Post By：2015/10/8 10:16:00 [显示全部帖子]

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

wangguiwang

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

加好友

发短信

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

Post By：2015/10/8 10:40:00 [显示全部帖子]

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

wangguiwang

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

wangguiwang

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

加好友

发短信

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

Post By：2015/10/10 16:54:00 [显示全部帖子]

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

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

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