流行模式

根据字段数据，打开选项卡



begin
if Tabledoc.fieldbyname('单据类别').asstring='申请单'
then FormInput_InputFormTTabSheet1.PageControl.TabIndex:=0;
if Tabledoc.fieldbyname('单据类别').asstring='进度单'
then FormInput_InputFormTTabSheet1.PageControl.TabIndex:=1;
if Tabledoc.fieldbyname('单据类别').asstring='付款单'
then FormInput_InputFormTTabSheet1.PageControl.TabIndex:=2;
if Tabledoc.fieldbyname('单据类别').asstring='进度验收单'
then FormInput_InputFormTTabSheet1.PageControl.TabIndex:=3;
if Tabledoc.fieldbyname('单据类别').asstring='整改单'
then FormInput_InputFormTTabSheet1.PageControl.TabIndex:=4;

end.