字符型转大写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim rst As DialogResult
rst = MessageBox.Show("请确认无误后,点击确定", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If rst = DialogResult.Yes Then
    For Each dt As DataRow In DataTables("工资月报表").DataRows
        Dim months() As String = {"一","二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二"}
        Dim m As String = months(val(dt("月份").replace("月", ""))-1) & "月"
        Dim y As Integer = dt("年度")
        Dim gz As DataRow = DataTables("当年工资库").Find("年度 = '" & y & "' And 月份 = '" & m & "'")
        If gz Is Nothing Then
            gz = DataTables("当年工资库").AddNew
            For Each dc As DataCol In DataTables("当年工资库").DataCols
                gz(dc.Name) = dt(dc.Name)
            Next
        Else
            MessageBox.Show("你要转结的工资月报表已存在,请再次核对后转结.","提示")
        End If
    Next
End If

主题：字符型转大写