Foxtable(狐表)用户栏目专家坐堂 → 新人再次求教-顺序查找的问题-2


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

主题:新人再次求教-顺序查找的问题-2

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


加好友 发短信
等级:婴狐 帖子:14 积分:186 威望:0 精华:0 注册:2019/1/16 22:56:00
新人再次求教-顺序查找的问题-2  发帖心情 Post By:2019/2/9 1:26:00 [只看该作者]

我有表A(基础数据表)和表B(查找表)
1、在表B的[名称B]列和[代码B]列在输入名称,在[序号B]列中查找到在表A中符合条件的[序号A]中的值;
2、在表B的[名称C]列中输入名称,在[第一序号]列和[最后序号]列中查找到在表A中符合条件的[序号A]中的值;

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

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

[此贴子已经被作者于2019/2/9 1:55:50编辑过]

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


加好友 发短信
等级:版主 帖子:78031 积分:391300 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/10 11:42:00 [只看该作者]


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


加好友 发短信
等级:婴狐 帖子:14 积分:186 威望:0 精华:0 注册:2019/1/16 22:56:00
  发帖心情 Post By:2019/2/11 19:34:00 [只看该作者]

能帮忙写个代码不,请帮忙注明是表A的名称列还是表B的名称列等,万分感谢!

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


加好友 发短信
等级:超级版主 帖子:25028 积分:127688 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/2/11 20:18:00 [只看该作者]

表B,datacolchanged事件

If
 e.DataCol.Name = "名称B" orelse e.DataCol.Name = "代码B" Then 
    If e.
DataRow.isnull("名称B") orelse e.DataRow.isnull("代码B") Then
        e.
DataRow("
序号B") = Nothing 
    
Else
        Dim
 dr As DataRow
        dr = 
DataTables("表A").Find("[
名称A] = '" & e.DataRow("名称B") & "' and 代码A = '" & e.DataRow("代码B") & "'")
        If
 dr IsNot Nothing Then '如果找到了
            e.
DataRow("
序号B") = dr("序号A"
        End
 If
    End
 If
End
 If

 回到顶部