【结贴】打印报错！**

Jsun2007

换成 TSQLDataSet  后报错
语句如下:
with SQLDataSet1 do
begin
        sql.text := sqlyj;
end
报错如下:

Jsun2007

运行到sql.text :=sqlyj;时报错!

atiger

把代码帖全了。

Jsun2007

procedure TMainForm.QueryTrendDataForGrid;
var
  lSQLStr:String;
begin
  if FTableName <> '' then
  begin
    lSQLStr := GetTrendSQL;
    if lSQLStr <> '' then
    begin
      with SQLDataSet1 do
      begin
        Close;
        SQL.Text := FTrendSQLForGrid;
        //CommandText := FTrendSQLForGrid;
        //RichEdit1.text := CommandText;
        Open;
        Filtered := False;
        FormatTrantData;
      end;
    end
    else
      SQLDataSet1.Close;
  end;
end;

atiger

从这代码看，看不出问题。

SQLDataSet1  这个是创建的？还是直接在窗体上放了一个标准数据集？

你跟踪过吗？传给 SQL.Text  的值是啥？把这个语句直接在数据库上执行正常吗？

另外，Filtered := False; 这句是干吗的，没有看见你给filter 复制。

Jsun2007

SQLDataSet1  直接在窗体上放的
sql语句在数据库上执行是正确的
filter在别的函数里有赋值

Jsun2007

执行到close也会报错！

atiger

那你做个简单再现例子上传上来我看看吧，

Jsun2007

在业务信息下建标准数据集后问题搞定
新问题，代码控制数据集的字段的显示位数不管用
代码如下：
TSQLDataSet(DataSetBroker1.DataSet).Fields.Fields[2].SetFieldType(TFieldType.ftFloat);
TFloatField( TSQLDataSet(DataSetBroker1.DataSet).Fields.Fields[2]).DisplayFormat:='0.0';

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=18590