主题：字符型转大写

改一下，如果报错，说出来报什么错。

Dim dt As DataRow = e.DataRow
Select Case e.DataCol.Name
       Case "姓名" ,"年度"
        Dim dr As DataRow = DataTables("工资年度结算").Find("姓名 = '" &  dt("姓名")  & "' And 年度 = '" & dt("年度") & "'")
        If dr Is Nothing Then
            dr = DataTables("工资年度结算").AddNew()
            dr("姓名") = dt("姓名")
            dr("年度") = dt("年度")
        Else
            dr("姓名") = dt("姓名")
       End If
End Select