- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]复制 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77025)
-- 发布时间：2015/11/10 8:13:00
-- [求助]复制
数据表自动筛选出和客户表相同的客户名称、客户编号、的数据然后自动添加到客户表，不覆盖以前的数据。（数据表的数据每天更新的）。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:复制筛选.table |
客户表添加的客户名称、客户编号第一次是手工添加的。
-- 发布时间：2015/11/10 9:23:00
--
For Each dr As DataRow In DataTables("数据表").datarows
Dim fdr As DataRow = DataTables("客户表").Find("客户编号 = \'" & dr("客户编号") & "\' and 客户名称 = \'" & dr("客户名称") & "\'")
If fdr IsNot Nothing Then
fdr = DataTables("客户表").addnew
fdr("客户编号") = dr("客户编号")
fdr("客户名称") = dr("客户名称")
fdr("日期") = dr("日期")
End If
Next
-- 发布时间：2015/11/10 13:55:00
--
窗口绑定的是“客户”表的副本，希望双击窗口表，能筛选出“数据表”表中对应客户的数据 求解窗口表的双击事件代码
老师，下面代码报错。
Tables("数据表").Filter ="客户=\'" & e.Row("客户") & "\'"
DataTables("数据表").Loadtop=""
DataTables("数据表").Load
-- 发布时间：2015/11/10 14:05:00
--
Tables("数据表").Filter ="客户=\'" & e.Row("客户") & "\'"
或者
DataTables("数据表").LoadFilter = "客户=\'" & e.Row("客户") & "\'"
DataTables("数据表").Load
-- 发布时间：2015/11/10 15:21:00
--
此主题相关图片如下：图像 1.png
-- 发布时间：2015/11/10 15:24:00
--
不明白你什么意思。上传例子，填入数据，做出要的效果。
-- 发布时间：2015/11/10 17:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:复件 筛选.table |
-- 发布时间：2015/11/10 17:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:复件 筛选.table |
-- 发布时间：2015/11/11 7:53:00
--
谢谢老师，我要把对应的正行数据筛选出显示在窗口表中,不是光显示客户编号和客户名称。谢谢。
-- 发布时间：2015/11/11 9:24:00
--
以下是引用江南小城在2015/11/11 7:53:00的发言：
谢谢老师，我要把对应的正行数据筛选出显示在窗口表中,不是光显示客户编号和客户名称。谢谢。
谢谢老师，我要把对应的正行数据筛选出显示在窗口表中,不是光显示客户编号和客户名称。谢谢。
参考着代码填写列名就行啊。