时间:2021-07-01 10:21:17 帮助过:9人阅读
如果希望是第2列获得焦点(字段数组下标从0开始):
ADOTable1.RecNo := 3;
ADOTable1.Fields[1].FocusControl;
有一个问题,我的修改窗口是Form_ShangPinZiLiaoModi.ShowModal; 弹出的,所以
Form_ShangPinZiLiaoModi.Close; Form_KuCunGuanLi.DBGrid1.DataSource.DataSet.RecNo := CurrentNumber; Form_KuCunGuanLi.DBGrid1.DataSource.DataSet.Fields[3].FocusControl;
出现错误,错误内容是“cannot focus a disabled or invisible window”,
我应该怎么改呢?
谢谢!
“cannot focus a disabled or invisible window”错误的原因是DBGrid1所在的窗口还没有显示出来,操作某控件的Focus时其所在的窗口必须是已经显示出来的。所以你需要把
Form_KuCunGuanLi.DBGrid1.DataSource.DataSet.RecNo := CurrentNumber; Form_KuCunGuanLi.DBGrid1.DataSource.DataSet.Fields[3].FocusControl;
放在窗口显示出来以后的操作中。
另外FocusControl方法是字段对象的方法,所有的数据集控件都应该是可以的。
- <span style="color: #000000;">窗口2打开时焦点定位在DBGrid1的3行2列:
- </span><span style="color: #0000ff;">unit</span><span style="color: #000000;"> Unit1;
- </span><span style="color: #0000ff;">interface</span>
- <span style="color: #0000ff;">uses</span><span style="color: #000000;">
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB;
- </span><span style="color: #0000ff;">type</span><span style="color: #000000;">
- TForm1 </span>= <span style="color: #0000ff;">class</span><span style="color: #000000;">(TForm)
- Button1: TButton;
- </span><span style="color: #0000ff;">procedure</span><span style="color: #000000;"> Button1Click(Sender: TObject);
- </span><span style="color: #0000ff;">private</span>
- <span style="color: #008000;">{</span><span style="color: #008000;"> Private declarations </span><span style="color: #008000;">}</span>
- <span style="color: #0000ff;">public</span>
- <span style="color: #008000;">{</span><span style="color: #008000;"> Public declarations </span><span style="color: #008000;">}</span>
- <span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">var</span><span style="color: #000000;">
- Form1: TForm1;
- </span><span style="color: #0000ff;">implementation</span>
- <span style="color: #008000;">{</span><span style="color: #008000;">$R *.dfm</span><span style="color: #008000;">}</span>
- <span style="color: #0000ff;">uses</span><span style="color: #000000;">
- unit2;
- </span><span style="color: #0000ff;">procedure</span><span style="color: #000000;"> TForm1.Button1Click(Sender: TObject);
- </span><span style="color: #0000ff;">begin</span><span style="color: #000000;">
- Form2.ShowModal;
- </span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">end</span><span style="color: #000000;">.
- </span>************************************************
- <span style="color: #0000ff;">unit</span><span style="color: #000000;"> Unit2;
- </span><span style="color: #0000ff;">interface</span>
- <span style="color: #0000ff;">uses</span><span style="color: #000000;">
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, DB, ADODB, Grids, DBGrids;
- </span><span style="color: #0000ff;">type</span><span style="color: #000000;">
- TForm2 </span>= <span style="color: #0000ff;">class</span><span style="color: #000000;">(TForm)
- DataSource1: TDataSource;
- DBGrid1: TDBGrid;
- ADOTable1: TADOTable;
- </span><span style="color: #0000ff;">procedure</span><span style="color: #000000;"> FormShow(Sender: TObject);
- </span><span style="color: #0000ff;">private</span>
- <span style="color: #008000;">{</span><span style="color: #008000;"> Private declarations </span><span style="color: #008000;">}</span>
- <span style="color: #0000ff;">public</span>
- <span style="color: #008000;">{</span><span style="color: #008000;"> Public declarations </span><span style="color: #008000;">}</span>
- <span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">var</span><span style="color: #000000;">
- Form2: TForm2;
- </span><span style="color: #0000ff;">implementation</span>
- <span style="color: #008000;">{</span><span style="color: #008000;">$R *.dfm</span><span style="color: #008000;">}</span>
- <span style="color: #0000ff;">procedure</span><span style="color: #000000;"> TForm2.FormShow(Sender: TObject);
- </span><span style="color: #0000ff;">begin</span><span style="color: #000000;">
- ADOTable1.RecNo :</span>= <span style="color: #800080;">3</span><span style="color: #000000;">;
- ADOTable1.Fields[</span><span style="color: #800080;">1</span><span style="color: #000000;">].FocusControl;
- </span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">end</span>.
- <span style="color: #000000;">还是改不好。我这个是MDI程序,MainForm中 Form1.ShowModal,Form1中Form2.ShowModal,Form1中有DBGrid,Form2是修改窗口,Form2修改之后
- Form1.DBGrid1.Fields[</span><span style="color: #800080;">3</span><span style="color: #000000;">].FocusControl;出错。不用Form2直接在Form1中也不好用。
- 真是不好改。</span>
- 你在Form2上做了什么操作后Form1.DBGrid1.Fields[<span style="color: #800080;">3</span>].FocusControl出的错?把代码贴上来看看比较好找出问题。
- <span style="color: #000000;">MainForm中:
- </span><span style="color: #0000ff;">procedure</span><span style="color: #000000;"> TMainForm.Button1Click(Sender: TObject);
- </span><span style="color: #0000ff;">begin</span><span style="color: #000000;">
- Form1.ShowModal;
- </span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
- Form1中:
- </span><span style="color: #0000ff;">procedure</span><span style="color: #000000;"> TForm1.FormShow(Sender: TObject);
- </span><span style="color: #0000ff;">begin</span>
- <span style="color: #0000ff;">try</span>
- <span style="color: #0000ff;">if</span> DataModule1.ADOConnection1.Connected <span style="color: #0000ff;">then</span>
- <span style="color: #0000ff;">begin</span><span style="color: #000000;">
- sql2 :</span>= <span style="color: #800000;">‘</span><span style="color: #800000;">select XuHao as 序号,zhengshuhao as 证书号,kuanhao as 款号,</span><span style="color: #800000;">‘</span> +
- <span style="color: #800000;">‘</span><span style="color: #800000;">xiaojia as 销价,rukuliang as 入库量,zhiquanhao as 指圈号,</span><span style="color: #800000;">‘</span> +
- <span style="color: #800000;">‘</span><span style="color: #800000;">shouhuoriqi as 收货日期,xiaoshouriqi as 销售日期,fanghuodanwei</span><span style="color: #800000;">‘</span> +
- <span style="color: #800000;">‘</span><span style="color: #800000;"> as 放货单位,nid as ID from KuCunInfo order by xuhao</span><span style="color: #800000;">‘</span><span style="color: #000000;">;
- DataModule1.ADOQuery1.Close;
- DataModule1.ADOQuery1.SQL.Text :</span>=<span style="color: #000000;"> sql2;
- DataModule1.ADOQuery1.ExecSQL ;
- DataModule1.ADOQuery1.Active :</span>=<span style="color: #000000;"> true;
- </span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">finally</span>
- <span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">procedure</span><span style="color: #000000;"> TForm1.Button1Click(Sender: TObject);
- </span><span style="color: #0000ff;">begin</span>
- <span style="color: #008000;">{</span><span style="color: #008000;">修改KuCunInfo中的数据</span><span style="color: #008000;">}</span>
- <span style="color: #0000ff;">try</span><span style="color: #000000;">
- Form1.DBGrid1.Fields[</span><span style="color: #800080;">3</span><span style="color: #000000;">].FocusControl;
- </span><span style="color: #0000ff;">finally</span>
- <span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
- 这样就出错了,不用在Form2中修改。</span>
- <span style="color: #000000;">哈哈,我弄出来了。在大富翁上搜索的。
- Form1.DBGrid1.SelectedIndex :</span>= <span style="color: #800080;">4</span><span style="color: #000000;">;
- Form1.DBGrid1.SetFocus;
- 这样就行了。
- 谢谢你!</span>
- <span style="color: #0000ff;">procedure</span><span style="color: #000000;"> TForm1.Button1Click(Sender: TObject);
- </span><span style="color: #0000ff;">begin</span>
- <span style="color: #008000;">{</span><span style="color: #008000;">修改KuCunInfo中的数据</span><span style="color: #008000;">}</span>
- <span style="color: #008000;">//</span><span style="color: #008000;">修改完库存信息后,由于Form1中的数据还是旧的,所以需要在这里更新一下Form1中</span><span style="color: #008000;">
- //</span><span style="color: #008000;">的数据,即:重新打开一次DBGrid1对应的数据集控件(DataModule1.ADOQuery1),然后 </span><span style="color: #008000;">
- //</span><span style="color: #008000;">再执行FocusControl</span>
- <span style="color: #0000ff;">try</span><span style="color: #000000;">
- Form1.DBGrid1.Fields[</span><span style="color: #800080;">3</span><span style="color: #000000;">].FocusControl;
- </span><span style="color: #0000ff;">finally</span>
- <span style="color: #0000ff;">end</span><span style="color: #000000;">;
- </span><span style="color: #0000ff;">end</span><span style="color: #000000;">;
- 另外以下代码:
- DataModule1.ADOQuery1.Close;
- DataModule1.ADOQuery1.SQL.Text :</span>=<span style="color: #000000;"> sql2;
- DataModule1.ADOQuery1.ExecSQL ;
- DataModule1.ADOQuery1.Active :</span>=<span style="color: #000000;"> true;
- 建议这样写:
- DataModule1.ADOQuery1.Close;
- DataModule1.ADOQuery1.SQl.Clear;
- DataModule1.ADOQuery1.SQL.Add(sql2);
- DataModule1.ADOQuery1.Open;
- ADOQuery1控件,如果其SQL为select语句使用Open,如果是Insert、update、</span><span style="color: #0000ff;">delete</span>等不需要返回值的SQL用ExecSQL 。
给DBGrid动态赋值后,如何用程序指定某行某列为当前焦点?(100分)
标签:send ado source cli 数据集 inf order nal dialog