想从"影楼名称"中提取首字母,在datacolchanged中设置如下代码,重置列后代码能起作用,可是当重启项目后,“代码”列全部清空了,只能再次重置列才能填上。是哪里错了呢?求指点。
If e.DataCol.Name = "影楼名称" Then '如果更改的是影楼名称列 If e.newValue Is Nothing Then '影楼名称是否为空 e.DataRow("代码") = Nothing '如果为空,则清除代码
Else '否则从影楼名称列中提取代码
e.DataRow("代码") = getPY(e.newValue ,True) End IfEnd If