主题：代码问题

不要有多余空格即可，如

Select Case e.DataCol.Name
    Case  "项目编码","合同编码","所属机构","项目类别","招标方式","项目名称","建设单位","合同金额","合同工期","项目经理","项目总工"
        Dim Filter  As  String = "合同编码 = '" & e.DataRow("合同编码") & "'"
        Dim db  As  List(Of DataRow) =  DataTables("合同归档").Select(Filter)
        For  Each dd  As  DataRow  In db
            dd(e.DataCol.Name) = e.NewValue
        Next
End Select