- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 从另一个表提取卡号填到表中 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193439)
-- 发布时间：2024/9/13 19:53:00
-- 从另一个表提取卡号填到表中
对比两表中的姓名（默认姓名不重复），批量从底表中提取对应姓名的卡号到提取表中对应的卡号？此方法在excel中实现了，如何在foxtable中用按钮代码实现？肯请帮忙写个代码
此主题相关图片如下：01.png
-- 发布时间：2024/9/13 20:05:00
--
参考：http://www.foxtable.com/webhelp/topics/1533.htm
For Each dr1 As DataRow In DataTables("提取表").datarows
Dim dr2 As DataRow = DataTables("底表").find("姓名=\'" & dr1("姓名") & "\'")
Dim dr2 As DataRow = DataTables("底表").find("姓名=\'" & dr1("姓名") & "\'")
if dr2 isnot nothing then
dr1("银行卡号") = dr2("银行卡号")
dr1("银行卡号") = dr2("银行卡号")
end if
Next
Next