主题：为什么代码会在重启项目后失效？

想从"影楼名称"中提取首字母，在datacolchanged中设置如下代码，重置列后代码能起作用，可是当重启项目后，“代码”列全部清空了，只能再次重置列才能填上。是哪里错了呢？求指点。

If e.DataCol.Name = "影楼名称"  Then  '如果更改的是影楼名称列
    If e.newValue Is Nothing Then '影楼名称是否为空
        e.DataRow("代码") = Nothing  '如果为空,则清除代码

    Else
        '否则从影楼名称列中提取代码

        e.DataRow("代码") = getPY(e.newValue ,True)
    End  If
End If