Question

delphi程序为什么第一次点击按钮没有显示，第二次之后才正常

procedure TForm1.BitBtn2Click(Sender: TObject);
var
F:STRING;
begin
datasource1.DataSet:=ClientDataSet2;
clientdataset2.Close;
clientdataset2.CommandText:='select t1.WORK_ORDER 工单,t1.WO_START_DATE　开始时间,t3.TARGET_QTY　工单数量,t3.INPUT_QTY　投入数量,t3.OUTPUT_QTY　产出数量,EMP_NAME　投入线长 from sajet.G_HT_WO_BASE T1,SAJET.SYS_EMP T2,sajet.g_wo_base t3 '
+'where T1.WORK_ORDER=:F and T1.UPDATE_USERID=T2.EMP_ID AND T1.INPUT_QTY=1 and t1.work_order=t3.work_order';
clientdataset2.Params.ParamValues['F']:=trim(edit2.Text);
clientdataset2.open;
IF clientdataset2.RecordCount<>0 THEN
label4.Caption:=inttostr(clientdataset2.RecordCount);
end;
//按钮第一次点查询结果是空的，第二次后才能显示出结果

Answer 1

你是说与datasource1连接的栅格表没有结果吗？
你把这句datasource1.DataSet:=ClientDataSet2;
放到
clientdataset2.open;
的后面试试。