用dbedit来修改数据的问题

banana 2000-09-21 09:53:00
假设有一个表GoodsEditTable
语句如下:
GoodsEditTable.Append;

GoodsEditTable.FieldValues['Name'] := DBEditName.text;
GoodsEditTable.FieldValues['GoodsID'] := DBEditCode.text;
GoodsEditTable.FieldValues['GoodsTypeID'] := GTypeCB.Field.value;
GoodsEditTable.FieldValues['Unit'] := DBEditUnit.text;
GoodsEditTable.FieldValues['Kind'] := DBLookupComboBox1.Field.value;
GoodsEditTable.FieldValues['Sprice'] := StrToCurr(DBEditSprice.text);
GoodsEditTable.FieldValues['Pprice'] := StrToCurr(DBEditPprice.text);

GoodsEditTable.Post;
程序报错:在StrToCurr(DBEditSprice.text)中出现转换异常,认为DBEditSprice.text是一个'',
设置断点察看,发现DBEditName.text,DBEditCode.text,DBEditUnit.text,DBEditSprice.text等
都是'',不知道是怎么回事,难道DBedit控件的Text属性不能这样用吗?但执行下去后发现表的‘name’,
‘GoodsId’,'Unit','Kind','GoodsTypeID'都被更新了;'Sprice','Pprice'没有更新。
但是把 GoodsEditTable.Append; GoodsEditTable.Post;语句注习掉,可看到DBedit.text有东西。
怎样解决此问题?
...全文
119 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
chimpyu 2000-10-05
  • 打赏
  • 举报
回复
it is easy!
使用DBEdit.Value而不是DBEdit.text.
GOOD LUCK!
tigerii 2000-09-21
  • 打赏
  • 举报
回复
i think your dbedit's table has a relation with GoodsEditTable, so if you call dataset.append, dbedit's text is clear. one solution is save the text before you call append.
Seoul 2000-09-21
  • 打赏
  • 举报
回复
为什么这么费劲?
  支接设置DBEDIT的DATASOURCE和DATAFIELD不就行了,
  设置后的修改是不用POST的。 
  

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧