Question

我收到了访问冲突错误，但我知道代码是正确的，那么问题可能出在哪里？我正在尝试从本地AccessDB填充ComboBox whit数据。

var i : integer;
    x : string;
begin
      with DataModule3.ADOTable1 do begin
         if RecordCount > 0 then
           for i := 1 to RecordCount do begin
             RecNo := i;
             x := FieldByName('Teacher').AsString;
             ComboBox1.Items.Add(x);
           end;
       end;
end;

我已经尝试了很多东西而且没有任何作用，我尝试了很多组合框但仍然无法工作的唯一一次，当我在表格中选择一行时，组合框显示的值然后它在组合框中显示行值我需要过滤......

Answer 1

很可能是因为您忘记实例化数据模块DataModule3而引发访问冲突。通过调用Assigned函数验证这一点。

Answer 2

begin
    with DataModule3.ADOTable1 do 
        if Active then
            while not Eof do
                begin
                    ComboBox1.Items.Add(FieldByName('Teacher').AsString);
                    Next;
                end;
end;

组合框上的Delphi ComboBox访问冲突

2 个答案: