Dim s As String = e.DataRow("犀牛面积长度")
If s.EndsWith("m㎡") then
msgbox("平方毫米")
elseif s.EndsWith("㎡")
msgbox("平方米")
end if