如何在dbgrid中控制每一列的输入,如在这个列失去焦点后判断这个列的text.value.
解决方案 »
- 仅用SQLQuery组件能编辑数据表里的数据吗?
- 请问怎么用delphi实现access的数据库导入mssql呢?还有mssql的数据库导出为access。
- 看某些软件在安装时捆绑其他软件,有让用户选择是否安装它。我用的是wise installation 9,如何实现?
- 如何把一个字符串的字符逐一转换为ASCII码的8进制或16进制表示方式?
- 關於DLL調用的問題!
- delphi与oracle连接
- 关于不同数据库之间的数据读取问题大家讨论。
- 有谁知道,某记录被修改后 ADOQuery的那个属性成true 在线等,问题解决马上给分
- 高分求dxDBGRID,wwDBGRID控件。
- DELPHI中一种变量类型
- 如何正确得到.scr文件名的有趣问题
- 我最近要做个多线程的,请大家说说多线程方面的经验
with Query do
begin
if VarIsNull(FieldValues['Unit_Price']) or VarIsEmpty(FieldValues['Account']) then
begin Showmessage('不能为空');
end;
谢谢各位! 在dbgrid中,如果单价,数量两列为空。进行合计计算就会出错,那么怎么判断这个列的值为空。注意字段是数值型的。
procedure Txkssform.DBGrid1ColExit(Sender: TObject);
begin
if DBgrid1.Fields[3].Value为空 then 这句怎么写?
showmessage('不能为空,请重新输入‘);
................ 返回这个列怎么写?
DBgrid1.Fields[3].Value:=0;
end;
isnull(aa,0)
aa表示字段
try
query1.FieldByName('fields').Asstring:=StrToint(Text);
except
showMessage('错误');
abort;
如果单价,数量两列为空。进行合计计算就会出错,那么怎么判断这个列的值为空。注意字段是数值型的。
procedure Txkssform.DBGrid1ColExit(Sender: TObject);
begin
if DBgrid1.Fields[3].Value为空 then 这句怎么写?
showmessage('不能为空,请重新输入‘);
................ 返回这个列怎么写?
DBgrid1.Fields[3].Value:=0;
end;
dbgrid1.Fields[3].Value:=0;