表的datacolchanged事件中
if e.datacol.name = "A列"
dim dr as datarow = e.datarow
if dr.isnull("A列") then
dr("B列") = nothing
dr("C列") = nothing
else
dr("B列") = dr("A列").split(" ")(0)
dr("C列") = dr("A列").split(" ")(1)
end if