【结帖】功能调用信息里的控件运行出错!**

巧克力味

功能调用信息里的控件运行出错,但编译没有钱!错误如下图!

zfang

你怎么调用的啊？贴一下代码

巧克力味

procedure TRCKJJSQK1.Button1Click(Sender: TObject);
var
   lsqldataset2:TQuery;
begin
     lsqldataset2 := TQuery.Create(self);
     lsqldataset2.ConnectionString := 'DATABASEURL=Biz:\SYSTEM\SYSTEM.DATABASE';
     with lsqldataset2 do
     begin
          Close;
          CommandText := 'select FDISPLAYNAME from TPERSON';
          Open;
      //    RCKJSXX.TBGWD1(DocViewRCKJSXX_BGWD1).ComboBox1.Items.Clear;
          while not eof do
          begin
               if Fields[0].AsString<>'人事厅' then
                  // Self.ComboBox1.Items.Add(Fields[0].AsString);
                  RCKJSXX.TBGWD1(DocViewRCKJSXX_BGWD1).ComboBox1.Items.Add(Fields[0].AsString);
               Next;
          end;
     end;
end;

zfang

修改成这样看看
RCKJSXX.TBGWD1(DocViewRCKJSXX_BGWD1.doc).ComboBox1.Items.Add(Fields[0].AsString);

巧克力味

搞定了,谢谢!