专家坐堂-请帮修正一下代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请帮修正一下代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82056)

--  作者：万才理
--  发布时间：2016/3/10 18:08:00
--  请帮修正一下代码

保存退出时出错，请帮修正一下。

If e.DataCol.Name = "来电_单位" OrElse e.DataCol.Name = "通知_办报员" Then
Dim dr As DataRow
Dim Filter As String
Filter = "[单位_名称] = \'" & e.DataRow("通知_单位") & "\' And [用户_姓名] = \'" & e.DataRow("通知_办报员") & "\'"
dr = DataTables("人员管理").Find(Filter)
If dr IsNot Nothing Then
If dr.IsNull("电话_手机2") Then
Dim a As String = ""
Else
Dim a As String = ","
End If
If dr.IsNull("电话_手机3") Then
Dim b As String = ","
Else
Dim b As String = ""
End If
e.DataRow("通知_办公电话") = dr("电话_办公室")
e.DataRow("通知_移动电话") = dr("电话_手机1") & a & dr("电话_手机2") & b & dr("电话_手机3")
Else
  e.DataRow("通知_办公电话") = Nothing
End If
End If

--  作者：狐狸爸爸
--  发布时间：2016/3/10 22:08:00
--

If e.DataCol.Name = "来电_单位" OrElse e.DataCol.Name = "通知_办报员" Then
    Dim dr As DataRow
    Dim Filter As String
    Dim a As String
    Dim b As String
    Filter = "[单位_名称] = \'" & e.DataRow("通知_单位") & "\' And [用户_姓名] = \'" & e.DataRow("通知_办报员") & "\'"
    dr = DataTables("人员管理").Find(Filter)
    If dr IsNot Nothing Then
        If dr.IsNull("电话_手机2") Then
            a = ""
        Else
            a = ","
        End If
        If dr.IsNull("电话_手机3") Then
            b = ","
        Else
            b = ""
        End If
        e.DataRow("通知_办公电话") = dr("电话_办公室")
        e.DataRow("通知_移动电话") = dr("电话_手机1") & a & dr("电话_手机2") & b & dr("电话_手机3")
    Else
        e.DataRow("通知_办公电话") = Nothing
    End If
End If

[此贴子已经被作者于2016/3/10 22:07:58编辑过]

--  作者：万才理
--  发布时间：2016/3/10 22:49:00
--
谢谢！