还是一样啊 得到的值还是 四舍五入
此主题相关图片如下：w{rn%aoerl`7wb{b64ah5v.png
Dim je As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim sfdz As String = Tables("对账列表_Table1").Current("是否对账")
If sfdz = False Then
Dim num As Decimal
Dim sum As Decimal
If je.text <> "" Then
num =CDec(je.Text)
End If
If e.Row.Checked Then
num = num + e.Row("金额")
je.text = Format(num,"##.######")
Else
num = CDec(je.text)
num = num - e.Row("金额")
je.text = Format(num,"##.######")
End If
For Each r As Row In e.Table.GetCheckedRows
sum += 1
Next
Else
End If
加好友 
发短信
Post By：2016/8/31 13:56:00 [显示全部帖子]
