DataColChanged事件中代码如下

Dim dr As DataRow=e.DataRow
Select Case e.DataCol.Name
    Case "数量","单价"
        dr("金额")=CInt(dr("数量")*dr("单价") *100)/100
    Case "收支类别"
        If dr("收支类别")="收入" Then
            dr("排序")=1
        End If
        If dr("收支类别")="支出" Then
            dr("排序")=2
        End If
        If dr("收支类别")="投资有关" Then
            dr("排序")=0
        End If
Case "金额"
e.Cancel = True
End Select

以上运行金额列都是2位小数，

但我在窗口按钮设置代码

Tables("数据查询_Table1").Filter = "[班组类别_名字] = \'卞坚春\' Or [材料商_名字] = \'卞坚春\'"     \'筛选

e.Form.Controls("TextBox1").Value=Tables("数据查询_Table1").Compute("Sum(金额)", "班组类别_名字 = \'卞坚春\' Or 材料商_名字 = \'卞坚春\'")  \'统计值

e.Form.Controls("TextBox1").Value值会显示很多位小数，为什么