以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56067)
--  作者：xiaoyongxg2
--  发布时间：2014/8/28 16:51:00
--  [求助]
各位老师好：
      有这样一个问题，我有思路但不知如何下手，请老师们指点。
我这里有五个表，分别为花名册、表一、表二、表三、表四，以花名册表中的姓名列的内容去匹配表一的姓名列内容，如果匹配上了那么将表一中的职称列内容提取到花名册中职称列内，未能匹配上的与表二匹配，再匹配不上与表三匹配，还匹配不上与表四匹配，都匹配不上的显示“无”。
      请教老师应该怎么下手
--  作者：Bin
--  发布时间：2014/8/28 16:54:00
--  
http://www.foxtable.com/help/topics/1451.htm

里面多套几层

例如

If e.DataCol.Name = "品名" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.DataRow("单价") = Nothing \'那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品1").Find("[品名] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("单价") = dr("单价")
        else
              dr = DataTables("产品2").Find("[品名] = \'" & e.NewValue & "\'")
              If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
                   e.DataRow("单价") = dr("单价")
            
              End If
        End If
    End If
End If
--  作者：xiaoyongxg2
--  发布时间：2014/8/28 17:12:00
--  
谢谢Bin老师，我理解了。