主题：[求助]怎样快速提取代码的第二位

方法一：用表达式列，输入公式 substring(地址代码, 2, 1)

方法二：datacolchanged事件，写代码

If e.DataCol.name = "地址代码" Then
    If e.NewValue = Nothing Then
        e.DataRow("地址代码第二位") = Nothing
    Else
        e.DataRow("地址代码第二位") = e.NewValue.Substring(1, 1)
    End If
End If