Question

delphi中dbgrid为空的代码怎么写 就像 if grid.????????='' then begin showmessage('条件不能为空')

没用...在Button1Click事件时....如果grid（dbgrid）里为空就showmessage('~') 就不执行后面的代码了
if ????????? then
begin
showmessage(''~)
end
else
begin
form2.Edit1.Text:=trim(form1.grid.Fields[0].text);
form2.Edit2.Text:=trim(form1.grid.Fields[1].text);
form2.Edit3.Text:=trim(form1.grid.Fields[2].text);
form2.Edit4.Text:=trim(form1.grid.Fields[3].text);
form2.Edit5.Text:=trim(form1.grid.Fields[4].text);
form2.Edit6.Text:=trim(form1.grid.Fields[5].text);
form2.Edit7.Text:=trim(form1.grid.Fields[6].text);
form2.Show;

我刚学这个写错了...别笑哈

Answer 1

我理解，你是指格里面的内容为空吧。
DBGrid是数据感知组件，你直接判断数据值更合适。
示例：if DataSet.Fields.Field[0].AsString = '' then ......
DataSet要看你具体连接的数据组件，如AdoTable1。这种方式的判断更准确。

关于问题补充：
if Self.grid.Fields[0].text = '' then
begin
ShowMessaeg('xxx');
Abort;
end;

这样用DELPHI，可惜了这么好的工具了。进一步讨论，QQ群：92104661

Answer 2

不知道你具体指的是什么.
如果是在TStringGrid里面编辑,你可以这样判断:if grid.Cells[x,y]='' then

如果是在DBGrid中,则你需要对数据集字段进行判断,如: if db.FieldByName('xx').AsString='' then,或者是直接对TField进行属性设置,设置Required:=true

Answer 3

dbgrid为空？？？
是不是这样？？
if dbgrid=nil then begin

Answer 4

dbgrid为空一般是用的数据集是否为空来判断。if adoquery1.recordcount<>0来判断