以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码错误，求更正。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27523)
--  作者：guoqi1129
--  发布时间：2013/1/3 18:41:00
--  [求助]代码错误，求更正。
Tables("存货").AddNew()
Tables("存货").Rows("货物名称") = hwmc.Text
Tables("存货").Rows("大类") = dl.Text
Tables("存货").Rows("小类") = xl.Text
Tables("存货").Rows("存货数量") = jhsl.Value
Tables("存货").Rows("备注") = bz.Text
一个代码里有部分代码如上，保存显示属性“Item”为“ReadyOnly”
--  作者：程兴刚
--  发布时间：2013/1/3 18:48:00
--  

Tables("存货").AddNew()
Tables("存货").Current("货物名称") = hwmc.Text
Tables("存货").Current("大类") = dl.Text
Tables("存货").Current("小类") = xl.Text
Tables("存货").Current("存货数量") = jhsl.Value
Tables("存货").Current("备注") = bz.Text
--  作者：狐狸爸爸
--  发布时间：2013/1/4 12:03:00
--  

呵呵，这样少写点：

 

Dim r As Row = Tables("存货").AddNew()
r("货物名称") = hwmc.Text
r("大类") = dl.Text
r("小类") = xl.Text
r("存货数量") = jhsl.Value
r("备注") = bz.Text
--  作者：guoqi1129
--  发布时间：2013/1/4 18:54:00
--  
谢谢，谢谢