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

老师，请问下，假如在A列输入20170216，B列会自动输入201702就是前面6位数，这代码该怎么写，谢谢！

DataColChanged事件

 

Select Case e.DataCol.Name
    Case "A列"
        If e.NewValue IsNot Nothing
            e.DataRow("B列") = format(e.DataRow("A列"),"yyyyMM")
        End If
End Select

老师，上面的代码能改下吗？,我的A列是整数型的，不是日期型的，我只是想提取我输入数据的前6位数，谢谢！

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