专家坐堂-明明控件的值存在但是就是有时候对的有时候给数据表的就是空值！Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- 明明控件的值存在但是就是有时候对的有时候给数据表的就是空值！

msgbox(Forms("产品输入").Controls("number").value & "_" & Forms("产品输入").Controls("Price").value)

Tables("新建销售单_Sale_List").Current("ProductName")=Forms("产品输入").Controls("name").value

Tables("新建销售单_Sale_List").Current("ProductID")=Forms("产品输入").Controls("ProductID").value

Tables("新建销售单_Sale_List").Current("ProductNumber") = Forms("产品输入").Controls("number").value

Tables("新建销售单_Sale_List").Current("ProductPrice") = Forms("产品输入").Controls("Price").value

\'小计的价格自动运算

Tables("新建销售单_Sale_List").Current("MainMemoEx")=Forms("产品输入").Controls("MainMemoEx").value

Tables("新建销售单_Sale_List").AddNew()

\'添加数据后,清空

Forms("产品输入").Controls("name").value=Nothing

Forms("产品输入").Controls("ProductID").value=Nothing

Forms("产品输入").Controls("number").value=Nothing

Forms("产品输入").Controls("Price").value=Nothing

Forms("产品输入").Controls("ProductTotal").value=Nothing

e.Form.Controls("DropBox1").text=Nothing

做的弹出窗口输入销售明细，ProductNumber 和 ProductPrice 这两个字段大部分时候是好的就是有时候 2个中的一个是空值也不报错

为了跟踪错误我加了一个弹出框看赋值前是不是数据有问题，发现赋值前的数据没有问题每次出现空值的时候弹出框的数据是对的。

Tables("新建销售单_Sale_List") 的dataTable是用一下命令生成的临时表：

Dim dtb As New DataTableBuilder("产品明细")

dtb.AddDef("ProductID", Gettype(String), 32)

dtb.AddDef("ProductName", Gettype(String))

dtb.AddDef("ProductNumber", Gettype(Double))

dtb.AddDef("ProductPrice", Gettype(Double))

dtb.AddDef("ProductTotal", Gettype(Double),"ProductNumber * ProductPrice")

dtb.AddDef("MainMemoEx", Gettype(String))

dtb.Build()

Tables("新建销售单_sale_list").DataSource =DataTables("产品明细") \'dtb.BuildDataSource()

Tables("新建销售单_sale_list")这个表设置的是作为副本

困在这里几天了不敢往后写，有时候对有时候不对折磨人的！请版主援手！