- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数值控件填入数值不等问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176928)
-- 发布时间：2022/5/2 23:43:00
-- 数值控件填入数值不等问题
老师好，为什么我窗口数值控件里的数值填到数据表后，小数位会发生变化？代码及窗体如下，请老师赐教！
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("发票信息填写不齐全,请补齐发票信息!")
Else
Dim r As Row = Tables("开票明细表").AddNew
r("发票号") = e.Form.Controls("TextBox1").value
r("客商名称") = e.Form.Controls("ComboBox1").value
r("开票名称") = e.Form.Controls("ComboBox3").value
r("开票日期") = e.Form.Controls("DateTimePicker1").value
r("开票金额") = 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("开票人") = e.Form.Controls("ComboBox4").value
r.Save
End If
此主题相关图片如下：1.png
-- 发布时间：2022/5/4 20:50:00
--
这样试试，如果也有问题，看看调试信息
dim d as double = e.Form.Controls("NumericComboBox1").value
msgbox(d)
r("开piao金额") = d
msgbox(r("开piao金额"))