以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  此数据调用用哪种方式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=94046)
--  作者：HJG_HB950207
--  发布时间：2016/12/14 11:28:00
--  此数据调用用哪种方式
A表：    支部                   科室                         （其中：每行支部对应的科室拦中包含很多科室，非唯一）。
          一支部      办公室、计财科、法制科
          二支部      外勤科、后勤科、装备科



B表：   支部       科室     。。。。。。   B表中，科室列已存在，一科室一行。
             ？      办公室
             ？       计财科
             ？       外勤科
              


    

想B表的支部列自动用A表对用科室的支部填入。

用关联表存在问题，科室名不对应，请教老师如何编写代码。谢谢！ 
   
--  作者：有点蓝
--  发布时间：2016/12/14 11:36:00
--  
参考：http://www.foxtable.com/webhelp/scr/1451.htm


\'\'\' 意这里第一行要加上三个单引号
If e.DataCol.Name = "科室" Then
    If e.NewValue Is Nothing Then 
        e.DataRow("支部") = Nothing 
    Else 
        Dim dr As DataRow 
        dr = DataTables("表B").Find("\'、\' + [科室] + \'、\' like \'%、" & e.NewValue & "、%\'") 
        If dr IsNot Nothing
            e.DataRow("支部") = dr("支部") 
        End If
    End If
End If