Question

Delphi7中如何显示DBGrid中的某一值？

我想单击button将‘位置’ ‘5’ ,'工作时间'的值‘23’显示在label1中如何写代码？
使用的控件有ADOConnection，ADOTable，DataSource，DBGrid，Label，button
连接的数据库是SQL 2005

Answer 1

tb:TADOTable;
label1:label;

..Click方法
var v:int
begin
if tb.locate('位置',5,[]) then
begin
v:=tb.FieldByName('工作时间'),asinteger;//这儿类型根据你的实际情况
lablel1.Caption:=inttostr(v);
end;
end;

追问

那如果我想要这个判断那？
就是判断如果‘23’这个值不为空，则执行label1.caption：=inttostr（v）
如果为空就不执行该怎么写啊？

追答

还是用数据集的fieldbyname方法判断，用if语句。
不过你得注意下，如果“工作时间”这列如果是数字类型的话，null在dbgrid中会显示为‘’，而用fieldbyname出来的结果却是0

if tb.fieldbyname（‘’

if tb.fieldbyname（‘工作时间’）.asstring=‘’ then …
注意一定要asstring