数控车FANUC Oi Mate TD系统如何把注释输入到程序名后面去？

编写程序，然后再后面用（）写注释，参数3204#0为1 时MDI面板上的“[”和“]”作为“（”和“）”使用，为0时原样使用。

例如将O0001程序段后注释钻孔(ZUANKONG),则编写程序：

O0001（ZUANKONG) M3S2000

G90G99G73X300.Y-300.Z-300.R-100.Q15F100.

。。。

。。。

这样在程序号后面就有ZUANKONG这个注释了！

Sub AppendDescriptionToField(ByVal TableName As String, ByVal FieldName As String, ByVal Description As String)

    On Error GoTo ErrP

    Dim TDS As TableDefs

    Dim TD As TableDef

    Dim F As dao.Field

    Dim P As Property

    Set TDS = CurrentDb.TableDefs

    Set TD = TDS(TableName)

    Set F = TD.Fields(FieldName)

    Set P = F.CreateProperty("Description", dbText, Description)

    F.Properties.Append P

ExitSub:

    Set P = Nothing

    Set F = Nothing

    Set TD = Nothing

    Set TDS = Nothing

    Exit Sub

ErrP:

    If Err.Number = 3367 Then

        F.Properties("Description") = Description

    Else

        MsgBox Err.Number & " " & Err.Description

    End If

    GoTo ExitSub

End Sub

复制上面的代码到一个模块中，在其他在方就可以调用了

使用方法

 AppendDescriptionToField "表名","字段名","该字段的说明文本"

---