主题：[求助]自动输入问题

Select Case e.DataCol.Name
    Case "A列"
        If e.NewValue = "" OrElse e.NewValue.Length < 6 Then
            e.DataRow("B列") = Nothing

        Else

            e.DataRow("B列") = e.DataRow("A列").SubString(0, 6)
        End If
End Select