- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 控件NumericComboBox 用text赋值 还是有时会出现空值！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=149303)
-- 发布时间：2020/4/28 14:24:00
-- 控件NumericComboBox 用text赋值 还是有时会出现空值！
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").text
Tables("新建销售单_Sale_List").Current("ProductPrice") = Forms("产品输入").Controls("Price").text
\'小计的价格自动运算
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
此主题相关图片如下：未标题-1.jpg
-- 发布时间：2020/4/28 14:46:00
--
做个例子发上来看看