老师,保存按钮修改为
Dim t As Table = e.Form.Controls("Table1").Table
Dim 业务类型 = e.Form.Controls("业务类型").Text
Dim 日期 = e.Form.Controls("日期").Text
Dim 订单编号 = e.Form.Controls("订单编号").Text
Dim 采购类型 = e.Form.Controls("采购类型").Text
Dim 供应商 = e.Form.Controls("供应商").Text
Dim 部门 = e.Form.Controls("部门").Text
Dim 业务员 = e.Form.Controls("业务员").Text
Dim 税率 = e.Form.Controls("税率").Text
Dim 付款条件 = e.Form.Controls("付款条件").Text
Dim 备注 = e.Form.Controls("备注").Text
Dim 币种 = e.Form.Controls("币种").Text
Dim 汇率 = e.Form.Controls("汇率").Text
For Each r As Row In t.Rows
r("业务类型") = 业务类型
r("日期") = 日期
r("订单编号") = 订单编号
r("采购类型") = 采购类型
r("供应商") = 供应商
r("部门") = 部门
r("业务员") = 业务员
r("税率") = 税率
r("付款条件") = 付款条件
r("备注") = 备注
r("币种") = 币种
r("汇率") = 汇率
Next
t.DataTable.DeleteFor("存货编号 is null")
t.DataTable.Save()
e.Form.close
此主题相关图片如下:2.png
但是出现如图错误提示:字符型无法转换为双精度类型(注:税率和汇率是双精度类型)
此主题相关图片如下:1.png