请叫一个navigator的问题 我试过你的代码,没有问题啊 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.DBGrid2Enter(Sender: TObject);type TForm1 = class(TForm) DataSource1: TDataSource; DataSource2: TDataSource; DBGrid1: TDBGrid; DBGrid2: TDBGrid; DBNavigator1: TDBNavigator; Table1: TTable; Table2: TTable; procedure DBGrid1Enter(Sender: TObject); procedure DBGrid2Enter(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DBGrid1Enter(Sender: TObject);beginif sender =dbgrid1 thenbegin dbnavigator1.DataSource :=dbgrid1.DataSource ; dbnavigator1.VisibleButtons :=[nbfirst,nbprior,nbnext,nblast]; end else dbnavigator1.datasourse :=dbgrid2.datasource;end;procedure TForm1.DBGrid2Enter(Sender: TObject);begin if sender =dbgrid2 thenbegin dbnavigator1.DataSource :=dbgrid2.DataSource ;//错误是:inderclared identifier 'datasourse' dbnavigator1.VisibleButtons :=[nbfirst,nbprior,nbnext,nblast,nbinsert,nbdelete,nbedit,nbpost,nbcancel,nbrefresh]; end else dbnavigator1.datasourse :=dbgrid1.datasource;//错误是:inderclared identifier 'datasourse'end;end.错误是:inderclared identifier 'datasourse'不过以上的一段,是否你拷贝错误啊 idhttp post 如何登陆百度? 高分请教 如何知道一个已经显示的窗体是正在模式显示还是非模式显示? 怎么提取imageslist 里面的图标?? 头疼的unicode问题! 大家有无EPSON的打印控制代码 ESC/P-K 参考手册? 执行递归时,如果遇到要找的结果,执行返回 后,如何终止递归,请高手帮帮忙,谢谢!!!!! 欲购收银系统,若网友们的公司在深圳市,请与我联系。 我用了一个adoquery1控件。有问题 ShellExt的资料问题 怎样用delphi实现skin技术? 一个关于将图片存入和读取数据库的问题 如何得到指定窗口中的各个控件的HWND????????
type
TForm1 = class(TForm)
DataSource1: TDataSource;
DataSource2: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBNavigator1: TDBNavigator;
Table1: TTable;
Table2: TTable;
procedure DBGrid1Enter(Sender: TObject);
procedure DBGrid2Enter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.DBGrid1Enter(Sender: TObject);
begin
if sender =dbgrid1 then
begin
dbnavigator1.DataSource :=dbgrid1.DataSource ;
dbnavigator1.VisibleButtons :=[nbfirst,nbprior,nbnext,nblast];
end
else
dbnavigator1.datasourse :=dbgrid2.datasource;
end;procedure TForm1.DBGrid2Enter(Sender: TObject);
begin
if sender =dbgrid2 then
begin
dbnavigator1.DataSource :=dbgrid2.DataSource ;//错误是:inderclared identifier 'datasourse'
dbnavigator1.VisibleButtons :=[nbfirst,nbprior,nbnext,nblast,nbinsert,nbdelete,nbedit,nbpost,nbcancel,nbrefresh];
end
else
dbnavigator1.datasourse :=dbgrid1.datasource;//错误是:inderclared identifier 'datasourse'
end;end.
错误是:inderclared identifier 'datasourse'不过以上的一段,是否你拷贝错误啊