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

回复9楼，单独做个例子上传上来说明问题。

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

 

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

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

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

 

 

 

 

 

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

Dim str As String = "aaaaaaaaa客户姓名:叶先生" & vbcrlf & "客户账号:13502217816@139.gdasdfkasdf"
Dim mc1 = System.Text.RegularExpressions.Regex.Matches(str,"客户姓名.+\n")
msgbox(mc1(0).value.Substring(5))
Dim mc2 = System.Text.RegularExpressions.Regex.Matches(str,"客户账号.+@139.gd")
Dim s As String = mc2(0).value
msgbox(s.SubString(5, s.Length-12))

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

 

 

在窗口的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(dr2("直通车日期") & vbcrlf & Format(dt, "yyyy-MM-dd") )

以下命令执行完 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

改成

 

 If dr1 IsNot Nothing  AndAlso  r.isnull("小区名称")  AndAlso  dr1("是否休假") <> "是"   Then '如果找到了同名的产品行,也就是dr不是Nothing