主题：记录窗口上如何实现与表同步显示锁标记

如果是通用的，写代码处理一下，如

If  Forms("记录窗口").Opened Then
    Dim rgd As WinForm.RecordGrid = Forms("记录窗口").Controls("RecordGrid1")
    rgd.Table = CurrentTable  '指定绑定表
    rgd.Build()
    Dim t = rgd.basecontrol
    For i As Integer = 0 To t.Rows.count-1
        If CurrentTable.Cols(t.Rows(i)(0)).AllowEdit Then
            t.SetCellStyle(i, 0, "")
        Else
            Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.Styles.Add("样式1")
            cs1.forecolor = Color.red
            cs1.backcolor = Color.yellow
            'cs1.font = new font("宋体", 15)
            t.SetCellStyle(i, 0, cs1)           
        End If
    Next
End If

Dim t 等同于 Dim t As Object

当你不想写或者不知道类型的时候，可以不写，这样很省事。