如何将EDIT1的text的值赋给一个数据库的MONEY型的数据？在线等待！急！

Question

用table1.fieldbyname('单价').asstring:=edit13.text;可是单价是MONEY型数据，没有ASMONEY这个函数，不知要用什么方法才可以实现？

Answer 1

table1.fieldbyname('单价').AsInteger := StrToInt(edit13.text);

Answer 2

不行，出现如下提示
Project project2.exe raised exception class EConvertError with message"￥15.00' is not a valid interger value'.process stopped. Use step or Run to continue.

Answer 3

还有一个问题:
运行如下语句时,出错,看看要怎么解决
table2.filter:='"供应商名称" = dblookupcombobox1.text';
UP有分!

Answer 4

table1.fieldbyname('单价').asvariant:=edit13.text;

Answer 5

还有一个问题:
运行如下语句时,出错,看看要怎么解决
table2.filter:='"供应商名称" = dblookupcombobox1.text';
UP有分!

Answer 6

table1.fieldbyname('单价').Asfloat := StrTofloat(edit13.text);

Answer 7

table2.filter := '供应商名称 ='''+dblookupcombobox1.text+'''';

Answer 8

table1.fieldbyname('单价').asvariant:=edit13.text;
table1.fieldbyname('单价').value:=edit13.text;
都可以

Answer 9

TTABLE有没有ASCURRENCY阿，有的话就用这个！table2.filter:='"供应商名称" = dblookupcombobox1.text';
table2.filter := '供应商名称 ='''+dblookupcombobox1.text+'''';