【结】DataChang事件报错

lxh_78

我选择不同的合同类型的时候，显示不同的页面，结果切换的时候报错，但是能显示相应的页面

procedure TMAINFORM.dsbConstractDataChange(Sender: TObject; Field: TDataField);
var ftemp,ftemp1:string;
begin
  Inherited;
  IF (NOT dsbConstract.DataSet.IsEmpty) AND (Field <> nil)  THEN
  begin
      if  Field.FieldName ='FContractType' then
      begin
         ftemp:=dsbConstract.DataSet.FieldByName('FContractType').AsString;

         if(ftemp='361')then
           //劳动合同
             dvContractDetail.DocClassID:='CONTRACTDETAILSHEETDOC'
         else if (ftemp='362') then //见习期工作协议
             dvContractDetail.DocClassID:='JXQGZXYBG'
         else if (ftemp='363') then   //转正工作协议
             dvContractDetail.DocClassID:='ZZGZXYBG'
         else if (ftemp='364') then
              // 社会聘用协议
                 dvContractDetail.DocClassID:='SHPYXYBG';
         else if (ftemp='365') then  // 返聘协议
             dvContractDetail.DocClassID:='FPXYBG';

      end;
  end;
end;

lxh_78

麻烦帮我看下啊  急！

atiger

请问、
1、请问执行哪句报错？
2、界面上是否只有这一个dvContractDetail 表现控件，还有其他的嘛?
3、dsbConstract 这个数据集有表现吗？能否结合显示界面图加以说明一下

lxh_78

1、执行到这句“dvContractDetail.DocClassID:='CONTRACTDETAILSHEETDOC'”即切换页面的时候报错
2、界面上是否只有这一个dvContractDetail 表现控件

atiger

收到，再回答一下3楼的第三个问题。
另外，你还有其他的代码吗？把其他的代码屏蔽掉就留切换DocClassID看看，

lxh_78

谢谢 我采取另外一种方式解决了
选择合同类型放在在DOCVIEW里面
需要切换的页面放在一个DOCVIEW里面
这样就不报错了
但是为什么在一个DOCVIEW里面为什么报错，没有明白

atiger

你的意思，选择的字段是要切换的DocView里面，是吗？如果这样，那就不行了。你在处理这个文档，就要取消掉，这样会有冲突的
像这样的情况就不能放在同一个文档中了

lxh_78

好的  我知道了  谢谢了
结贴

atiger

不客气，