- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求助如何根据身份证号取值相应卡号 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145247)
-- 发布时间：2020/1/13 17:57:00
-- [求助]求助如何根据身份证号取值相应卡号
请问 如何设计代码，根据身份证号码，取表2中对应新卡号，填入表1卡号列，表1和表2都已经导入foxtable
[此贴子已经被作者于2020/1/13 17:57:53编辑过]
-- 发布时间：2020/1/13 17:59:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:这是表1求教.zip |
-- 发布时间：2020/1/13 20:08:00
--
参考：http://www.foxtable.com/webhelp/topics/1451.htm
表1，datacolchanged
If e.DataCol.Name = "身份证号" Then \'如果内容发生变动的是品名列
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("卡号") = Nothing \'那么清空此行单价列的内容
Else
Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("表2").Find("[身份证号] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("卡号") = dr("新卡号")
End If
End If
End If
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("卡号") = Nothing \'那么清空此行单价列的内容
Else
Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("表2").Find("[身份证号] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("卡号") = dr("新卡号")
End If
End If
End If
-- 发布时间：2020/1/14 8:44:00
--
你好，蓝大哥，如果表1有3000行，这个代码还用加上3000次循环吗？
-- 发布时间：2020/1/14 8:52:00
--
不需要，已有数据重置列即可：http://www.foxtable.com/webhelp/topics/1469.htm
新录入的会自动触发事件计算
-- 发布时间：2020/1/14 9:07:00
--
懂了，谢谢蓝大哥!
[此贴子已经被作者于2020/1/14 9:09:47编辑过]