在授权表中有分工列，分工列为备注型字段，分管的部门用逗号分割，如张三分管：人事处，基建处，图书馆

李四分管：后勤处，保卫处，财务处   等等。

用下列方法可以正常找到并输出张三，

With Tables("授权表")
    Dim r As Integer
    r = .FindRow("[分工] Like \'%基建处%\'") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
        Dim dr As Row = Tables("授权表").current
        Dim xm As String = dr("name")
        output.Show( xm)
    End If
End With

但实际使用中要根据当前业务的申报单位自动查找其分管领导，如当前业务表的申报单位是财务处，财务处在业务表中有申报单位列，

我用下列方法无法正常输出结果，请大家帮忙。

dim dr as row = tables("业务表"）.current

dim bm as string = dr("申报单位")

With Tables("授权表")
    Dim r As Integer
    r = .FindRow("[分工] Like \'%bm%\'") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
        Dim dr As Row = Tables("授权表").current
        Dim xm As String = dr("name")
        output.Show( xm)
    End If
End With

 r = .FindRow("[分工] Like \'%bm%\'") \'从第一行开始查找

改成

 r = .FindRow("[分工] Like \'%" & bm & "%\'") \'从第一行开始查找

非常感谢！