主题：如何将数字转换为字符组合

Select e.DataCol.Name

    Case "班级代码", "科目", "日期"

        If e.DataRow.IsNull("班级代码") OrElse e.DataRow.IsNull("科目") OrElse e.DataRow.IsNull("日期") Then

            e.DataRow("顺序号") = Nothing

        Else

            Dim dict As New Dictionary(Of String, Integer)

            dict.Add("语文", 1)

            dict.Add("数学", 2)

            Dim dr As DataRow = e.DataTable.find("班级代码='" & e.DataRow("班级代码") & "' and 科目='" & e.DataRow("科目") & "' and 日期<=#" & e.DataRow("日期") & "#", "日期 desc")

            Dim m As Integer = 1

            Dim p As String = e.DataRow("班级代码") & "-" & dict(e.DataRow("科目"))

            If dr IsNot Nothing Then

                Dim s As String = dr("顺序号")

                Dim m As Integer = CInt(Right(s, 1)) + 1

            End If

            e.DataRow("顺序号") = p & m

            

            For Each dr In e.DataTable.select("班级代码='" & e.DataRow("班级代码") & "' and 科目='" & e.DataRow("科目") & "' and 顺序号>='" & e.DataRow("顺序号") & "' and _identify<>" & e.DataRow("_identify"), "日期")

                m += 1

                dr("顺序号") = p & m

            Next 

        End If

End Select