主题：列名不同的同步数据问题

请教老师，如果列名不同的话，数据同步应该怎样改代码

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.DataRow("表单号")
        End If
End Select