Case "车辆类别" Dim v As String = "1:(6座以下)" v = v & vbcrlf & "2:(6座及以上)" v = v & vbcrlf & "3:(6-10座)" v = v & vbcrlf & "4:(10-20座)" v = v & vbcrlf & "5:(20座以上)" v = v & vbcrlf & "6:(2吨以下)" v = v & vbcrlf & "7:(2-5吨)" v = v & vbcrlf & "8:(5-10吨)" v = v & vbcrlf & "9:(10吨以上)" e.Table.showtooltip(v,e.Row,e.Col)