SetFieldApp

子例程 SetFieldApp 接收字段名及其属性作为参数，并将属性分配到字段。

子例程分配以下字段属性：字段可见性、字段是否必填、要在上面显示该字段的页面（选项卡）数和视图顺序（从左到右，从上到下）。

在用户定义的函数 FieldCust_AddDefect 中添加对子例程 SetFieldApp 的调用。有关此函数的详细信息，请参见FieldCust_AddDefect。

Sub SetFieldApp(FieldName, Vis, Req, PNo, VOrder)
    On Error Resume Next
    With Bug_Fields(FieldName)
        .IsVisible = Vis
        .IsRequired = Req
        .PageNo = PNo
        .ViewOrder = VOrder
    End With
    PrintError "SetFieldApp"
    On Error GoTo 0
End Sub