0

我正在处理一些旧的 VB 代码，它创建System.Data.DataTable并定义了一些列。它工作正常，除了我需要某个列显示为货币，而不仅仅是浮点数。我该怎么做？

Dim myDataTable As New System.Data.DataTable("tblRec")
myDataTable.Columns.Add("RECAMOUNT", System.Type.GetType("System.Double"))

Protected WithEvents DataGridCurrentCRLines As Global.System.Web.UI.WebControls.DataGrid
Session("CRLines") = myDataTable
DataGridCurrentCRLines.DataSource = Session("CRLines")

将行更改为：

myDataTable.Columns.Add("RECAMOUNT", System.Type.GetType("System.Decimal"))

没有区别，我的意思是显示 1234567.89，而不是 1,234,567.89

4

1 回答 1

0

@Time Schmelter 的提示指向正确的方向。
首先将类型更改为字符串：

myDataTable.Columns.Add("RECAMOUNT", System.Type.GetType("System.String")

然后我写了一个辅助方法来将字符串转换为货币字符串，似乎无法从字符串直接转换为货币字符串，而是您必须转换为字符串->十进制->货币字符串 

 Private Function ConvertStringToCurrencyString(ByVal inputString As String) As String

        Dim currencyString As String
        currencyString = ""
        Dim myDecimal As Decimal

        Try

            myDecimal = System.Convert.ToDecimal(inputString)
            currencyString = myDecimal.ToString("C2")

        Catch exception As System.OverflowException
            System.Console.WriteLine("ConvertStringToCurrencyString(): Overflow in string-to-decimal conversion.")
        Catch exception As System.FormatException
            System.Console.WriteLine("ConvertStringToCurrencyString(): The string is not formatted as a decimal.")
        Catch exception As System.ArgumentException
            System.Console.WriteLine("ConvertStringToCurrencyString(): The string is null.")
        End Try

        Return currencyString

    End Function
于 2014-09-18T14:56:55.593 回答