在dbgrid doubleclick()中 if not dbgrid.datasource.dataset.isempty do with adoquerySearch do begin close; sql.clear; sql.text:= 'select * from tbl where 定单编号='''+dbgrid.datasource.dataset.FieldByName('字段').asstring; open; form2:= Tform.create(application); form2.showmodal; end;
table.fieldbyname('订单号').asstring 就是当前选中得行得订单号了!就可以传递了!
兄弟给分吧!呵呵
俺是一楼.呵呵^_^
if not dbgrid.datasource.dataset.isempty do
with adoquerySearch do
begin
close;
sql.clear;
sql.text:= 'select * from tbl where 定单编号='''+dbgrid.datasource.dataset.FieldByName('字段').asstring;
open;
form2:= Tform.create(application);
form2.showmodal;
end;