【结贴】还是关于DocView.DocClassID的问题**

零下三度

begin
  if DataSetBrokerPayment.DataSet.FieldByName('payment_value').AsFloat<500000 then
  begin
    DocViewBill.Doc.Close;
    lBorders.Line := TCellSideLine.slSingle;
    i:=DocViewBill.DocClassID;
    if DocViewBill.DocClassID='HTZFSPD_HZ.SHEETDOC' then
      TSheetDoc(DocViewBill.Doc).Sheet.Cells[3,27].Border[TCellSide.sBias1] := lBorders
    else if DocViewBill.DocClassID='QTHTZFSPD_HZ.SHEETDOC' then
      TSheetDoc(DocViewBill.Doc).Sheet.Cells[3,24].Border[TCellSide.sBias1] := lBorders;
    DocViewBill.OpenView(TDocMode.dmEdit);
  end
  else
  begin
    DocViewBill.Doc.Close;
    lBorders.Line := TCellSideLine.slNone;
    i:=DocViewBill.DocClassID;
    if DocViewBill.DocClassID='HTZFSPD_HZ.SHEETDOC' then
      TSheetDoc(DocViewBill.Doc).Sheet.Cells[3,27].Border[TCellSide.sBias1] := lBorders
    else if DocViewBill.DocClassID='QTHTZFSPD_HZ.SHEETDOC' then
      TSheetDoc(DocViewBill.Doc).Sheet.Cells[3,24].Border[TCellSide.sBias1] := lBorders;
    DocViewBill.OpenView(TDocMode.dmEdit);
  end;
  if PageControl.ActivePageIndex = 1 then
  begin
    ChangeType;
  end;
end;
以上是在PageControlChange中的代码，当进入功能时DocViewBill.DocClassID的默认值是SBCLFKSPD_SZ.SHEETDOC，当我选中一条记录跳转到第二页的DocView时，i应该变为HTZFSPD_HZ.SHEETDOC，可结果没变，还是默认值，我想问有没有什么方法当我选中一条记录时自动更新DocView？

lixy

http://bbs.justep.com/forum.php?mod=viewthread&tid=24349
人家这个可以。。
你放到其他事件上去实验下，先确认是执行了这个代码，并且是按照你的逻辑走的。

零下三度

代码的确是按逻辑走的，但只有第一次取值不正确，以后就全部正确了。

lixy

那你问题是docview一直不能变，还是什么

零下三度

好了，解决了，我写了一个changetype的函数，在里面更改DocClassID的值。
docview一直在按照逻辑变化，只是DocClassID的刷新比显示慢了一步。
可能我说的不清楚。
能加我qq么，285434546

零下三度

结贴了