请教老师, 下面语句中第一段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编辑过]