老师好，为什么我窗口数值控件里的数值填到数据表后，小数位会发生变化？代码及窗体如下，请老师赐教！
If e.Form.Controls("TextBox1").value Is Nothing Or e.Form.Controls("ComboBox1").value Is Nothing Or e.Form.Controls("DateTimePicker1").value Is Nothing Or e.Form.Controls("NumericComboBox1").value Is Nothing Or e.Form.Controls("NumericComboBox2").value Is Nothing Or e.Form.Controls("NumericComboBox3").value Is Nothing Or e.Form.Controls("NumericComboBox4").value Is Nothing Then
MessageBox.Show("fa piao信息填写不齐全,请补齐fa piao信息!")
Else
Dim r As Row = Tables("开piao明细表").AddNew
r("fa piao号") = e.Form.Controls("TextBox1").value
r("客商名称") = e.Form.Controls("ComboBox1").value
r("开piao名称") = e.Form.Controls("ComboBox3").value
r("开piao日期") = e.Form.Controls("DateTimePicker1").value
r("开piao金额") = e.Form.Controls("NumericComboBox1").value
r("税率") = e.Form.Controls("NumericComboBox2").value
r("税额") = e.Form.Controls("NumericComboBox3").value
r("不含税金额") = e.Form.Controls("NumericComboBox4").value
r("冲减应收金额") = e.Form.Controls("NumericComboBox5").value
r("未冲应收金额") = e.Form.Controls("NumericComboBox6").value
r("开piao人") = e.Form.Controls("ComboBox4").value
r.Save
End If
此主题相关图片如下：1.png
加好友 
发短信
Post By：2022/5/2 23:43:00 [显示全部帖子]
