Foxtable(狐表)用户栏目专家坐堂 → 此数据调用用哪种方式


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

主题:此数据调用用哪种方式

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


加好友 发短信
等级:小狐 帖子:394 积分:6003 威望:0 精华:0 注册:2015/2/17 10:18:00
此数据调用用哪种方式  发帖心情 Post By:2016/12/14 11:28:00 [只看该作者]

A表:    支部                   科室                         (其中:每行支部对应的科室拦中包含很多科室,非唯一)。
          一支部      办公室、计财科、法制科
          二支部      外勤科、后勤科、装备科



B表:   支部       科室     。。。。。。   B表中,科室列已存在,一科室一行。
             ?      办公室
             ?       计财科
             ?       外勤科
              


    

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

用关联表存在问题,科室名不对应,请教老师如何编写代码。谢谢! 
   

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部