主题：如何将列【2014】括号内的年度自动提取年度值?

在表的DataColChanged 事件中写入以下代码

Select Case e.DataCol.Name
    Case "文号列"
        If e.NewValue.contains("【") Then
            Dim i As Integer
            i = e.NewValue.IndexOf("【")
            e.DataRow("年度列") = e.NewValue.SubString(i + 1,4)
        End If
End Select

然后重置列 文号列 即可