DataSetBroker1.DataSet.Close;
with TSQLDataSet(DataSetBroker1.DataSet) do
begin
SQL.Text :='select * from HFJLB where BH='''+strtype+'''';
end;
DataSetBroker1.DataSet.Open;
DataSetBrokerSLDJSJJ.DataSet.Edit;
i:=1;
DataSetBrokerSLDJSJJ.DataSet.FieldByName('CLJGTJ').AsString:=sysutils.IntToStr(i)+'、'+strtemp;
i:=i+1;
while not DataSetBroker1.DataSet.Eof
do begin
DataSetBrokerSLDJSJJ.DataSet.Edit;
if DataSetBroker1.DataSet.FieldByName('JYMS').AsString<>'' then
begin
DataSetBrokerSLDJSJJ.DataSet.FieldByName('CLJGTJ').AsString:=DataSetBrokerSLDJSJJ.DataSet.FieldByName('CLJGTJ').AsString+#10#13+sysutils.IntToStr(i)+'、'+DataSetBroker1.DataSet.FieldByName('JYMS').AsString;
i:=i+1;
end;
DataSetBroker1.DataSet.Next;
end;