【搞定】[请求]不知道为什么的错误**

vinda

请帮忙看看，这段代码有什么错误吗？报错！
DataSetBrokerHTJBXXSJJ.DataSet.ConnectionString := 'DATABASEURL=BizLSCJYYYXTDLJYSJK.Database';

    DataSetBrokerHTJBXXSJJ.DataSet.Open;
    (DataSetBrokerHTJBXXSJJ.DataSet as TSQLDataSet).SQL.Text := 'select * from T_CONTYPE';
    (DataSetBrokerHTJBXXSJJ.DataSet as TSQLDataSet).Open;

    DataSetBrokerHTJBXXSJJ.DataSet.First;
    while not DataSetBrokerHTJBXXSJJ.DataSet.Eof do
    begin
         HeTong_TypeName := DataSetBrokerHTJBXXSJJ.DataSet.FieldByName('TypeName').AsString;//类型名称
         HeTong_Id := StrToInt(DataSetBrokerHTJBXXSJJ.DataSet.FieldByName('ContractType').AsString);//类型ID
         DataSetBrokerHTJBXXSJJ.DataSet.ReadOnly := false;
         DataSetBrokerHTJBXXSJJ.DataSet.Edit;
         ComboBox1.Items.Add(HeTong_TypeName);
         DataSetBrokerHTJBXXSJJ.DataSet.Next;
    end;

lisb

你的T_CONTYPE表中没有ID为TypeName的字段
另外你的
    DataSetBrokerHTJBXXSJJ.DataSet.Open;
    (DataSetBrokerHTJBXXSJJ.DataSet as TSQLDataSet).SQL.Text := 'select * from T_CONTYPE';
    (DataSetBrokerHTJBXXSJJ.DataSet as TSQLDataSet).Open;
应该这样写
    DataSetBrokerHTJBXXSJJ.DataSet.Close;
    (DataSetBrokerHTJBXXSJJ.DataSet as TSQLDataSet).SQL.Text := 'select * from T_CONTYPE';
    (DataSetBrokerHTJBXXSJJ.DataSet as TSQLDataSet).Open;

vinda

搞定了，不过不太明白，麻烦你解释一下，T_CONTYPE表中确实存在TypeName字段，在表的预览中也能看到数据，之所以写DataSetBrokerHTJBXXSJJ.DataSet.Open;这句是因为提示我数据集没有打开，我才写的，但是为什么要写成DataSetBrokerHTJBXXSJJ.DataSet.Close;这句就好用了呢？不太理解？

alang

标准写法是
Close
SQL.Text :=
Open

至于为什么会出现1楼的提示，你可以在出现错误之前，show一下数据集的SQL.Text看看

vinda

谢谢各位的帮助，结贴了！