主题：[求助]提取字符代码

水平有限能帮忙写个吗？

谢谢老师！

如果数据一个一个输进去，代码运行正确，如果批量导进去（或复制粘贴进去）就不运行，所以还要请老师完善一下，谢谢！

代码是放在datacolchanged里，未成功

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "A列","B列"
        dr("B列") = dr("A列").substring(0,2) 
End Select

老师：上面这个代码是我试做的，虽然达到目的，但是如果要删除部分内容就不行，还望老师再完善一下，谢谢！

上面代码试了一下还是不行，同时还有一个问题：如果A列不足2个字符，B列同样不行，最好做到A列不足2个字符的，B列按实际字符提取，还望老师再次帮忙修改，谢谢！

此主题相关图片如下：1377764575(1).png

老师：还是差一点：即当A列是一个字符时，B列未提取这一个字符，还望老师再修改一下，谢谢!还有A列字符如果删除去掉，B列所提取的字符也随之删除去掉最好，谢谢！