Foxtable(狐表)用户栏目专家坐堂 → 怎么按姓名及不同银行查找不同的银行账号?


  共有2484人关注过本帖树形打印复制链接

主题:怎么按姓名及不同银行查找不同的银行账号?

帅哥哟,离线,有人找我吗?
xhydxs
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:2232 威望:0 精华:0 注册:2016/10/29 14:17:00
怎么按姓名及不同银行查找不同的银行账号?  发帖心情 Post By:2020/12/18 10:26:00 [只看该作者]

各位大师,我想根据“明细表”中的姓名及银行类别查找“人员信息”表中相应人员的银行账号,怎么写代码啊?


图片点击可在新窗口打开查看此主题相关图片如下:01.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:02.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/18 10:50:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/1451.htm

If e.DataCol.Name = "姓名" orelse e.DataCol.Name = "银行" Then '如果内容发生变动的是品名列
    If e.DataRow.isnull("姓名") orelse e.DataRow.isnull("银行") Then '如果新值是空白,也就是品名列的内容为空
        e.DataRow("账号") = Nothing '那么清空此行单价列的内容
    
Else
        Dim
 dr As DataRow
        
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = 
DataTables("
人员信息").Find("[姓名] = '" & e.DataRow("姓名") & "'")
        If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
            e.
DataRow("
银行") = dr(e.DataRow("银行")
        End
 If
    End
 If
End
 If

 回到顶部
帅哥哟,离线,有人找我吗?
xhydxs
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:249 积分:2232 威望:0 精华:0 注册:2016/10/29 14:17:00
  发帖心情 Post By:2020/12/18 11:03:00 [只看该作者]

谢谢!


 回到顶部