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

如何实现表B中第一行和第二行的内容与表A的第一行和第二行的内容相同时；把表B中符合条件的第三行的所有内容自动填入到表A的第三行中去？

这条命令该写在哪？

为什么以下命令只有红色部分能够实现？后面的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

此主题相关图片如下：360截图20170516155342212.jpg

想实现如下功能，命令该怎么写？

 

1、如果【投诉内容】中有【客户姓名】这几个字、那么将【客户姓名：】后面到换行前的内容填入到【客户姓名】列中。如下内容将在【客户姓名】列中写入：叶先生

2、如果【投诉内容】中有【宽带账号】这几个字、那么将【客户账号：】后面到【@139.gd】前面的内容填入到【客户账号】列中。

     如下内容将在【客户账号】列中写入：13502217816

 

 

 

 

 

用户来电表示之前已经报装我司宽带（NGCC系统查询已有相关账号资料生成），已有工作人员联系通知上门，但是当时并没有安装成功，工作人员没有调试好该宽带网络，现在用户再次来电表示要求预约工作人员上门安装，请尽快跟进，谢谢！（因用户反映家庭宽带问题，请综援同事回复时使用1008616外呼端口，谢谢!）
客户姓名:叶先生
客户账号:13502217816@139.gd
宽带产品/套餐开始时间:2017年5月3号
是否曾接到上门预约:是
曾承诺上门日期:2017-05-04 09:57:33
报装渠道:沟通100营业厅
宽带安装地址：惠州市/惠阳区/淡水街道/承修二路/移动公司宿舍楼//404

想实现自动从数据库下载符合条件内容到某窗口控件中

 

 

在窗口的AfterLoad中写有一些命令、打开窗口后，能够根据条件进行加载；没有问题

 

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

Tables("装机工单清单表").Current.Load()

Dim r As Row = Tables("装机工单清单表").current

Dim dr2 As DataRow = DataTables("外线人员清单表").sqlFind("姓名 = '" & r("装维人员姓名") & "' ")
If dr2 IsNot Nothing And  dr2("直通车日期") = Format(dt, "yyyy-MM-dd") Then
    e.Form.Controls("直通车").text = dr2("直通车")
Else
    e.Form.Controls("直通车").text = Nothing
End If

 

 

 

在表的PositionChanged中写有一下命令、目的是确保在窗口打开的情况下，进行换行也能根据条件加载内容。

 

1、在换行时没法正常加载符合条件的内容到对应控件中、但是在该行上面、打开窗口就可以加载到符合条件的内容

 

2、如果我把【And  dr2("直通车日期") = Format(dt, "yyyy-MM-dd") 】这个判断条件去掉，就可以。这是什么原因？

 

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()

 

Dim r As Row = Tables("装机工单清单表").current

If Forms("装机工单清单表维护窗口(预约)").Opened Then
    Dim tv As WinForm.TextBox   = Forms("装机工单清单表维护窗口(预约)").Controls("直通车")
     
    Dim dr2 As DataRow = DataTables("外线人员清单表").sqlFind("姓名 = '" & r("装维人员姓名") & "' ")
    If dr2 IsNot Nothing  And  dr2("直通车日期") = Format(dt, "yyyy-MM-dd") Then
        tv.text = dr2("直通车")
            Else
        tv.text = Nothing
    End If
End If

以下命令执行完 msgbox(1) 后就提示错误；如果把 And  dr1("是否休假") <> "是"  去掉就可以执行下去；我的命令哪里错啦？

 

Select Case e.DataCol.name
    Case "小区名称"
        Dim r As Row = Tables("投诉工单清单表").current
        msgbox(0)
        Dim dr1 As DataRow = DataTables("投诉小区名称关联表").sqlFind("小区名称 =  '" & r("小区名称") & "'and  区域 =  '" & r("区域名称") & "' ")
        output.show("小区名称 = '" & r("小区名称") & "' and 区域 = '" & r("区域名称") & "' " & "    " & (dr1 Is Nothing))
        msgbox(1)
        If dr1 IsNot Nothing  And  r.isnull("小区名称") = Nothing  And  dr1("是否休假") <> "是"   Then '如果找到了同名的产品行,也就是dr不是Nothing
        msgbox(2)
            r("装维人员姓名") = dr1("装维人员姓名")
        msgbox(3)
           
        Else
        msgbox(4)
            If dr1 IsNot Nothing And  r.isnull("小区名称") = Nothing  And  dr1("是否休假") = "是"  Then
                r("装维人员姓名") = dr1("代班员工")
                MessageBox.Show("该【小区名称】的维护人员正在休假中,请将工单派发给【 " &  dr1("代班员工")  &" 】", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)

 

 

        msgbox(5)
            Else
        msgbox(6)
                r("装维人员姓名") = "未匹配到装维人员"
            End If
        End If
End Select

此主题相关图片如下：360截图20170803085632322.jpg

 

此主题相关图片如下：360截图20170803085754642.jpg