if e.DataCol.Name = "拼音码" then
if e.NewValue Is Nothing Then
e.DataRow("启动") = False
else
e.DataRow("启动") = true
end if