var s_sql1:string;
      ADOSetTmp: TADODataSet;
begin
   OpenModal:=Zw_OpenModal; //窗口打开方式
   para_int64:=zw_para_int64;
     DBComboBox1.Clear;
  s_sql1:='select * from  Tba_lb where lbbm='gy'';
  ADOSetTmp := nil;
  ADOSetTmp := TADODataSet.Create(ADOSetTmp);
  ADOSetTmp.CommandText := s_sql1;
  ADOSetTmp.Connection := data1.ADOConnection1;  s_sql1:='select * from  Tba_lb where lbbm='gy'';这名哪错了
提示[Error] U_sclck1.pas(72): Missing operator or semicolon
s_sql1:='select * from  Tba_lb'; 正确