主题：如何提取各列的数字，自动填到一个列

datacolchanged事件

select case e.datacol.name
    Case "A", "B", "C"
        e.DataRow("D") = e.DataRow("A").replace("号楼","") & "-" & e.DataRow("B").replace("单元", "") & "-" & e.DataRow("C")
End Select