【结贴】[请求]DataTreeView问题，急啊，请大虾们多关注一下**

lixy

2

senchina

10,11楼的大虾不不好意思，我这边不太好下载
9楼的大虾我把错误描述一下：
Cannot forcus a disabled or invisible window

还希望大虾们再给点意见

lixy

我的例子不能运行吗？你那个tree是不是放后台了，那就没办法操作了。

zfang

你代码写在什么事件上？

senchina

procedure TBOMWH.BizFormCreate(Sender: TObject);
Var
  lSql : String ;
  LCX : string ;
begin
  //系统启动时打开 DataTreeView的数据集DTVDSBZB
  DTVDSBZB.Close ;
  DTVDSBZB.Open ;
  DTV.FullCollapse ;
  DSBZB.DataSet.EmptyDataSet ;
  DSBFB.DataSet.EmptyDataSet ;
  //设置分页控件默认启动显示第一页
  GraphicPageControl1.ActivePageIndex := 0 ;
  //设置DataNavigator控件中要显示按钮
  DataNavigator.VisibleButtons := [TDataNavigatorButton.nbRefresh,TDataNavigatorButton.nbFilter,TDataNavigatorButton.nbCancel,TDataNavigatorButton.nbCancelUpdates,TDataNavigatorButton.nbSave];
  //分页2设置空表头
  lSql := ' select  bomwlhzb.CPMC as 产品名称,  bomwlhzb.GDCPMC as 工段产品名称, bomwlhzb.GD AS 工段,  bomwlhzb.GX AS 工序, bomwlhzb.cc AS 层次,  bomwlhzb.XH as 序号, bomwlhzb.CL AS 材料, bomwlhzb.sl AS 数量,BOMWLHZB.WLLX AS 类型,bomwlhzb.xl as 结构码 from bomwlhzb where 1=2' ;
  Qcx.Close ;
  Qcx.CommandText := lSql ;
  Qcx.Open ;
  Dscx.DataSet := Qcx ;
  //设置分页2中DataGrid的只读属性
  DGridCx.ReadOnly := True ;
  //窗体启动时，定位DataTreeView节点
  lcdxl := '01' ;
  DTVDSBZB.Locate('xl',[lcdxl],[]) ;
  DTV.SetFocus;
end;

zfang

把这个代码放到form的OnShow事件中。

senchina

你的例子，你给的，我相信肯定是没什么问题的，我这边今天下载不了东西！所以没法看的。我的代码给在上面了lcdcx我设的是public变量

zfang

看16楼。

senchina

恩，我换了个事件，确实那节点被选择了.非常感谢zfang,也感谢所有回帖的大虾们！
此贴可以结了！3Q