procedure Tmanage.DBGrid1CellClick(Column: TColumn);
begin
selected:=dbgrid1.SelectedField.AsString;
showmessage(''+selected+'');
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select * from 案卷 where 项目名称 like '+selected+'';
adoquery2.Open;
end;
我是想在一个form里有两个DBGrid,初始化的时候DBGrid1种的数据正常显示出来,第二个DBGrid的数据在选中DBGrid1中某一行的时候显示。我想当鼠标点击项目名称这一列时按这个单元格中的数据去查找数据然后在DBGrid2中显示。请问这样为什么不行?大侠们又没有更好的方法?谢谢!!!中秋快乐!
begin
selected:=dbgrid1.SelectedField.AsString;
showmessage(''+selected+'');
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select * from 案卷 where 项目名称 like '+selected+'';
adoquery2.Open;
end;
我是想在一个form里有两个DBGrid,初始化的时候DBGrid1种的数据正常显示出来,第二个DBGrid的数据在选中DBGrid1中某一行的时候显示。我想当鼠标点击项目名称这一列时按这个单元格中的数据去查找数据然后在DBGrid2中显示。请问这样为什么不行?大侠们又没有更好的方法?谢谢!!!中秋快乐!
begin
adoquery1对应DBGRID1 adoquery2对DGBRID2
a:=adoquery1.fieldbyname('项目名称').vause;adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select * from 案卷 where 项目名称 like '+a+'';
adoquery2.Open;