十万火急?高手请进~~~~~~~~~~~~~~~~~~~~~~~~~~~`````

Question

你在原程序中用recno做什么用呢？

Answer 1

是啊,你在原程序中用recno做什么用呢？

Answer 2

赞成MouseBrother()，改用用ADO组件，问题会简单得多。

Answer 3

function  RecCountDisp( Query : TQuery) : String;
begin
    Result := inttostr(Query.RecNo)+'/'+inttostr(Query.RecordCount);
end;
function  RecCountDisp( Table : TTable) : String;
begin
  Result := inttostr(Table.RecNo)+'/'+inttostr(Table.RecordCount);
end;
我在DBNavigator1 & Combobox1事件时Statusbar1中显示
Statusbar1.Panels.Items[1].text := RecCountDisp(Table1);

Answer 4

胡说，可以呀！！！！
query.recno
ibquery.recno
adoquery.recno都可以！！！是不是你的delphi 版本太低

Answer 5

把DELPHI的PARADOX改成INTERBASE多用户,但是INTERBASE不支持
Query.RecNo的属性

Answer 6

function  RecCountDisp( Table : TTable ; ComboBox : TComboBox) : String;
var
  i      : integer;
  intpos : integer;
begin
  for i  := 0 to ComboBox.Items.Count -1 do
  begin
    intpos := Pos(Table.Fields[0].asstring , ComboBox.Items[i]);
    if intpos <> 0 then
    begin
      break;
    end;
  end;
  ComboBox.ItemIndex := i;
  Result := inttostr(ComboBox.ItemIndex + 1)+'/'+inttostr(Table.RecordCount);
end;