DataColChanged事件
Select Case e.DataCol.Name
Case "外径", "内径", "高度"
e.DataRow("规格") = e.DataRow("外径") & "/" & e.DataRow("内径") & "*" & e.DataRow("高度")
End Select