主题：[求助代码问题

Select Case e.DataCol.name
Case "项目名称"
Dim dr As DataRow = DataTables("销售_汇总").Find("项目名称= '" & e.OldValue & "'")
If dr Is Nothing Then
dr = DataTables("销售_汇总").AddNew()
dr("项目名称") = e.DataRow("项目名称")
dr("客商名称") = e.DataRow("客商名称")
dr("合同单价") = e.DataRow("合同单价")
Else
dr("项目名称") = e.DataRow("项目名称")
End If
Case "客商名称","合同单价"
Dim dr As DataRow = DataTables("销售_汇总").Find("项目名称= '" & e.DataRow("项目名称") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select

大家帮忙看看这段代码有什么问题吗？问什么用录入窗口一输入项目名称，就会报错呢？