主题：[求助]自动录入公式

这里：

http://www.foxtable.com/help/topics/0625.htm

http://www.foxtable.com/help/topics/1469.htm

为什么以下命令只有红色部分能够实现？后面的3段命令都没有实现？

Tables("外线人员清单表").Filter  = ""

For Each r As Row In Tables("外线人员清单表").Rows
   
    Dim dr As DataRow = DataTables("投诉工单清单表").Find("区域名称 = '" & r("区域") & "'  ")
    If dr IsNot Nothing And  r("职务") = "装维营销中心经理" Then
        e.Form.Controls("经理区域").text = r("区域")
        e.Form.Controls("经理姓名").text = r("姓名")
        e.Form.Controls("经理电话").text = r("电话")
        e.Form.Controls("经理短号").text = r("短号")
        e.Form.Controls("经理QQ").text = r("QQ")
    Else
        e.Form.Controls("经理区域").text = Nothing
        e.Form.Controls("经理姓名").text = Nothing
        e.Form.Controls("经理电话").text = Nothing
        e.Form.Controls("经理短号").text = Nothing
        e.Form.Controls("经理QQ").text = Nothing
    End If
Next

For Each r1 As Row In Tables("外线人员清单表").Rows
    Dim dr1 As DataRow = DataTables("投诉工单清单表").Find("区域名称 = '" & r1("区域") & "'  ")
    If dr1 IsNot Nothing And  r1("职务") = "装维主管" Then
        e.Form.Controls("主管区域").text = r1("区域")
        e.Form.Controls("主管姓名").text = r1("姓名")
        e.Form.Controls("主管电话").text = r1("电话")
        e.Form.Controls("主管短号").text = r1("短号")
        e.Form.Controls("主管QQ").text = r1("QQ")
    Else
        e.Form.Controls("主管区域").text = Nothing
        e.Form.Controls("主管姓名").text = Nothing
        e.Form.Controls("主管电话").text = Nothing
        e.Form.Controls("主管短号").text = Nothing
        e.Form.Controls("主管QQ").text = Nothing
    End If
    Next
   
    For Each r2 As Row In Tables("外线人员清单表").Rows
        Dim dr2 As DataRow = DataTables("投诉工单清单表").Find("工作站名称 = '" & r2("工作站") & "'  ")
        If dr2 IsNot Nothing And  r2("职务") = "工作站站长" Then
            e.Form.Controls("工作站名称").text = r2("工作站")
            e.Form.Controls("站长姓名").text = r2("姓名")
            e.Form.Controls("站长电话").text = r2("电话")
            e.Form.Controls("站长短号").text = r2("短号")
            e.Form.Controls("站长QQ").text = r2("QQ")
        Else
            e.Form.Controls("工作站名称").text = Nothing
            e.Form.Controls("站长姓名").text = Nothing
            e.Form.Controls("站长电话").text = Nothing
            e.Form.Controls("站长短号").text = Nothing
            e.Form.Controls("站长QQ").text = Nothing
        End If
    Next
   
    For Each r3 As Row In Tables("外线人员清单表").Rows
        Dim dr3 As DataRow = DataTables("投诉工单清单表").Find("网格名称 = '" & r3("网格") & "'  ")
        If dr3 IsNot Nothing And  r3("职务") = "网格格长" Then
            e.Form.Controls("网格名称").text = r3("网格")
            e.Form.Controls("格长姓名").text = r3("姓名")
            e.Form.Controls("格长电话").text = r3("电话")
            e.Form.Controls("格长短号").text = r3("短号")
            e.Form.Controls("格长QQ").text = r3("QQ")
        Else
            e.Form.Controls("网格名称").text = Nothing
            e.Form.Controls("格长姓名").text = Nothing
            e.Form.Controls("格长电话").text = Nothing
            e.Form.Controls("格长短号").text = Nothing
            e.Form.Controls("格长QQ").text = Nothing
        End If
       
    Next

 如果没有指定，说明不符合你的判断逻辑，你可以弹出职务来判断。比如

 If dr2 IsNot Nothing Then

     msgbox(dr2("职务"))

 End If