- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 同编号数据复制问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=80008)
-- 发布时间：2016/1/14 1:00:00
-- 同编号数据复制问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.rar |
我想实现两种效果
A 和 B 两张表，点击填价的时候，自动将B表同 A表 相同编号 的产品名称和单价填入 A表，还想实现在点选A表 产品名称的单元格时，自动将B表中有该行相同编号的产品名称和单价填入
-- 发布时间：2016/1/14 9:08:00
--
跨表引用数据参考
-- 发布时间：2016/1/14 11:48:00
--
示例介绍的都是需要修改编号列才能实现复制数据，我的A表编号列是不变动的
-- 发布时间：2016/1/14 11:50:00
--
一样的道理，帮助是用来参考，不是照搬的。
-- 发布时间：2016/1/14 12:04:00
--
我就想通过按钮执行
-- 发布时间：2016/1/14 14:28:00
--
看2楼
Dim dr As DataRow = DataTables("表A").Find("[编号] = \'" & Tables("表B").Current("编号") & "\'")
If dr IsNot Nothing Then
Tables("表B").Current("单价") = dr("单价")
End If
-- 发布时间：2016/1/14 19:55:00
--
代码执行不了 Dim dr As DataRow = DataTables("表A").Find("[编号] = \'" & Tables("表B").Current("编号") & "\'")
If dr IsNot Nothing Then
Tables("表B").Current("产品价格") = dr("产品价格")
End If
-- 发布时间：2016/1/15 8:40:00
--
测试没有问题，表中么有数据，当然查不出来