【结帖】树形－无效常量**

beidou

我做了一个简单的表，里面只有4个字段，树形结构的。
窗体里面2个tab页面，tab1是 dataTreeView，tab2是4个DataEdit，字典和信息层没有任何的代码，没有自动填充和查找、排序等等。。。功能层有点代码
现在的问题是：在运行的时候，增加第一条记录（当表是空的）没问题，当运行下面的时候就报错。在post的时候报错，报错信息：“无效的常量”。。。不知道什么原因。我用的版本是2827，印象中以前在2611这么写没问题。。。很简单的东西，请快速帮我解决，谢谢！！！

beidou

function TMainForm.GetGYSBH: Integer;
begin
  Query.Close;
  Query.CommandText := 'Select Max(ID) from YKS';
  Query.Open;

  Result := Query.Fields[0].AsInteger + 1;
end;

procedure TMainForm.BizFormShow(Sender: TObject);
begin
  DatasetBroker.DataSet.Open;
  PageControl1.ActivePageIndex:=0;
end;

procedure TMainForm.DataNavigator1BeforeAction(Sender: TObject; var Accept: Boolean);
var i:integer;
begin
  if TBizDataSetAction(Sender).ID in
      [BizActnConsts.ActionDataSetInsert,
       BizActnConsts.ActionDataSetCopyInsert,
       BizActnConsts.ActionDataSetAppend,
       BizActnConsts.ActionDataSetCopyAppend] then
     begin
       PageControl1.ActivePageIndex:=1;
       if DatasetBroker.DataSet.IsEmpty then
       begin
         DatasetBroker.DataSet.Append;
         DatasetBroker.DataSet.FieldByName('ID').AsInteger:=100;
         DatasetBroker.DataSet.FieldByName('FU_ID').AsInteger:=0;
         DatasetBroker.DataSet.Post;
       end
       else
       begin
         i:= DatasetBroker.DataSet.FieldByName('ID').AsInteger;
         DatasetBroker.DataSet.Append;
         DatasetBroker.DataSet.FieldByName('ID').AsInteger:=GetGYSBH;
         DatasetBroker.DataSet.FieldByName('FU_ID').AsInteger:=i;
         DatasetBroker.DataSet.Post;
       end;
       Accept:=False;
     end;
end;

代码是上面的部分，一共就这点，我做这个的目的就是测试为什么会出现这种错误（无效常量）

atiger

窗体里面2个tab页面，tab1是 dataTreeView，tab2是4个DataEdit，
请问：
1、tab1 和 tab2 连接的是一个表吗？
2、直接 预览 tab1 和 tab2 这两个表，进行数据的增加、修改、保存动作正常吗？如果正常，测试数据集，进行增、删、改、保动作看看是否正常

另外，你说报错信息：“无效的常量”，你跟踪过吗？执行哪句报出来的？或者屏蔽掉2楼的所有代码，正常吗？

beidou

to atiger
1、2个tab'连接的是一个表，用的是一个datasetbroker，一个是台帐，一个是明细
2、删除，修改没问题，就是增加的时候报错，报错的语句在 DatasetBroker.DataSet.Post;  下面的post就是添加的时候，不是根节点，或者说是数据库里面有值，然后继续添加的时候报错

beidou

to atiger

http://bbs.justep.com/forum.php? ... 7%B5%C4%B3%A3%C1%BF

这个也是你回得帖子，我所搜无效常量出来的。。那个发贴人也是遇到同样的问题，他好像开始是数字，后来改成整数也不行，最后才是字符的就可以，我也实验过，字符也可以，可是我现在需求用的是整数，就不行拉。。。。。你最后写的你测试了可以，我不知道是不是我做的不对。。。我想会不会还是因为版本的问题啊。。因为我2611这么做没问题。。还是我这么作不对。。。你能帮我看一下吗

atiger

你如果不用dataTreeView，用DataGrid就正常吗？

稍等，我在2827上测试看一下。

atiger

我在2827上已经做个测试是可以了，见附件有个例子，你导入进去看看是否正常，如果正常，你对比一下设置有啥区别

beidou

atiger
我导入的时候选择创建表 就报错 没有定义主键，我想不选择创建数据表，导入以后我自己生成，结果导入是成功了，可是字典，信息，功能都是空的，模块是都出来了，里面没有任何内容，是不是因为你没有嵌入啊

atiger

o，Sorry。

beidou

呵呵，atiger ，你做的也不行，在 treeview 里面点击 新建 保存就报错，还是 无效的常量