Select Case e.Datacol.Name
Case "长","宽","高"
If e.Datarow.IsNull(e.Datacol.Name)=False then
e.Datarow("规格") = e.Datarow("长") & "*" & e.Datarow("宽") & "*" & e.Datarow("高")
Else
e.Datarow("规格")=Nothing
End If
End Select