【搞定】关于动态设置DocView.doc的问题？**

wnlx0626

在程序运行时,默认加载的是DOC1,当DOC1页面上的一个字段A发生变化时,DocView.doc会随着字段A其变化而变化,代码如下:

    with Dataset do
    begin
      if FieldByName('Mode').AsString='A' then DocView2.DocClassID  :='TECHNIQUESHEETFORM'
      else if FieldByName('Mode').AsString='B' then DocView2.DocClassID  :='MANAGERSHEETFORM'
      else if FieldByName('Mode').AsString='C' then DocView2.DocClassID  :='OPERATESHEETFORM'
      else if FieldByName('Mode').AsString='D' then DocView2.DocClassID  :='PERSONSHEETFORM';
      DocView2.RefreshDoc(True);
    end;
在实际运行中,却报错,并且报错还不一样,有时报
  Access violation at address 400058C4 in module 'rtl60.bpl'. Read of address 0000005F

有时报
   Access violation at address 023A4B9E in module 'CLRModel.bpl'. Read of address 00000000


请帮看下,哪个地方有问题,正确的写法又是如何写的

atiger

你写到哪个事件上了？应该是事件不对。

wnlx0626

我写在数据集的OnFieldChange事件中

atiger

OnFieldChange  这个字段在当前要切换的DocView的文档里面吗？如果是不能这样做，

wnlx0626

是的,比如当前默认的DOC是DOC1,在DOC1中某字段的OnFieldChange  ,DocClassID  随着该字段变化而变化,不能这样做的话,那就只有用其他办法了

atiger

恩，不能这样做，把这个字段放到文档外面吧，没有其他的问题就结了

wnlx0626

好的,结了吧,谢谢了

atiger

好，不客气

顺便再麻烦你一件事情，让单工看看他提交帖子，让他跟一下，没有问题，就结了，thanks

wnlx0626

好的,不过现在他在外地出差,可能暂时联系不上

atiger

好，谢谢