procedure Tyw_bjgl_new_fm.DBGridEh1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
strcpbh:string;
begin
strcpbh:=dbgrideh1.Columns.Items[0].DisplayText;
with DBGridEh1.Columns[10].pickList do
begin
clear;
with dm_fm.Query_xl do
begin
close;
sql.clear;
sql.add('select * from cp_bzzl where cp_cpbh='''+strcpbh+'''');
open;
first;
begin
while not Eof do
begin
DBGridEh1.Columns[10].pickList.add(Fieldbyname('bz_bzlx').asstring);
next;
end;
end;
end;
end;
DM_FM.Query_xl.Active:=false;
//计量单位
begin
with DBGridEh1.Columns[5].pickList do
begin
clear;
with dm_fm.Query_xl do