Foxtable(狐表)用户栏目专家坐堂 → 如果采用第二段语句,是否可删除第一段?


  共有8981人关注过本帖树形打印复制链接

主题:如果采用第二段语句,是否可删除第一段?

帅哥哟,离线,有人找我吗?
apple333
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:391 积分:3904 威望:0 精华:0 注册:2011/12/5 12:27:00
如果采用第二段语句,是否可删除第一段?  发帖心情 Post By:2012/4/7 9:45:00 [只看该作者]

请教老师,  下面语句中第一段Case "客户名称","是否新客户"
是否与第二段 Case "是否新客户"  的效果相同?   如果采用第二段语句,是否可删除第一段?

 

Select Case e.DataCol.Name
    Case "客户名称","是否新客户"
        If e.DataRow.IsNull("客户名称") = False AndAlso e.DataRow("是否新客户") = True Then
            If e.DataRow.GetChildRows("客户登记").Count = 0 Then
                Dim dr As DataRow = DataTables("客户登记").AddNew()
                dr("客户名称") = e.DataRow("客户名称")
                dr("采购联系人") = e.DataRow("联系人")
                dr("采购电话") = e.DataRow("联系电话")
                dr("交货地址") = e.DataRow("交货地址")
            End If
        End If
End Select


Select Case e.DataCol.Name
    Case "客户名称"
        Dim dr1 As DataRow = e.DataRow
        Dim dr2 As DataRow = DataTables("客户登记").Find("客户名称  = '" & dr1("客户名称") & "'")
        If dr2 IsNot Nothing Then
            dr1("客户名称") = dr2("客户名称")
            dr1("联系人") = dr2("采购联系人")
            dr1("联系电话") = dr2("采购电话")
            dr1("交货地址") = dr2("交货地址")
        End If
    Case "是否新客户"
        If e.DataRow("是否新客户") = True
            Dim dr1 As DataRow = e.DataRow
            Dim dr2 As DataRow = DataTables("客户登记").Find("客户名称  = '" & dr1("客户名称") & "'")
            If dr2 Is Nothing Then
                dr2 =  DataTables("客户登记").AddNew()
                dr2("客户名称") = dr1("客户名称")
                dr2("采购联系人") = dr1("联系人")
                dr2("采购电话") = dr1("联系电话")
                dr2("交货地址") = dr1("交货地址")
            End If
        End If
End Select

[此贴子已经被作者于2012-4-7 9:46:46编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2012/4/7 11:03:00 [只看该作者]

Select Case e.DataCol.Name
    Dim dr1 As DataRow = e.DataRow
    Dim dr2 As DataRow = DataTables("客户登记").Find("客户名称  = '" & dr1("客户名称") & "'")
Case "客户名称"
    If dr2 IsNot Nothing Then
        dr1("联系人") = dr2("采购联系人")
        dr1("联系电话") = dr2("采购电话")
        dr1("交货地址") = dr2("交货地址")
    End If
Case "是否新客户"
    If e.DataRow("是否新客户") = True
        If dr2 Is Nothing Then
            dr2 =  DataTables("客户登记").AddNew()
            dr2("采购联系人") = dr1("联系人")
            dr2("采购电话") = dr1("联系电话")
            dr2("交货地址") = dr1("交货地址")
        End If
    End If
End Select


 回到顶部