[请求]DataTreeView的node.data 怪问题**

zykj

if (nil <>node.data ) and (node.data <> '') then
             begin
             AddChildNodes(Node);
             if node.getFirstChild=nil then

为什么在建模运行node.data 有值，一初始化运行node.data 没值

要如何解决

全部代码在附件中

lixy

在窗体创建的事件里面open下数据集

zykj

我已经写了Open语句了，可是还是不行，为什么呢？？

lixy

楼主单步跟踪下吧。我在代码里面看到在change事件里面有好多代码，有abort。是不是他影响了。

zykj

node.data  为空时abort，建模工具运行有值，初始化就没值，是不是与datatreeview有关系，在treeview不会这样

shangxy

l楼主，作个能重现的简单例子，把资源包发上来看看吧

shangxy

楼主把BizFormCreate事件中的代码放到timer事件中吧，见下面代码：
procedure TSB_SBGL.Timer1Timer(Sender: TObject);
var
  NodeData: TNodeData;
begin   //打开数据集
DataSetBroker1.DataSet.open ;
DataSetBroker2.DataSet.open ;
  FQuery := TQuery.Create(nil);
  FQuery.ConnectionString := BizObjConsts.cSysDatabaseConnectionString;

  with datasetbroker1.DataSet do
    while not datasetbroker1.DataSet.eof do
    begin
      NodeData := TNodeData.Create;
      NodeData.ID := FieldByName('INST_ID').asstring;
      NodeData.FID := FieldByName('ZLJDFID').asstring;
      NodeData.MC := FieldByName('ZLMC').asstring;
      NodeData.ChildTableName := FieldByName('GS').asstring;
      DataTreeView1.Find(FieldByName('INST_ID').asstring).Data := NodeData;
     // TCNode.Data:= NodeData;

      datasetbroker1.DataSet.Next;
    end;



  if not LSGX.DataSet.Active then lsgx.DataSet.Open;
  DataGrid1.ApplyBestFit(nil);
  Timer1.Enabled :=False;
end;

zykj

DataTreeView 如何控制 显示其中的节点，不全显示

想做权限控制

lixy

数据源控件当然是要控制数据源了。没有数据，他的节点也就不显示了

zykj

dataset如何写sql