主题：请教字符串问题

        Dim Parts() As String = Tel.Split("*") '地址与电话中间以空格相隔

        If Parts.length > 1 Then

            dr("货物") = Parts(1) '否则从地址电话列中提取电话       

        End If

        If Parts.length > 2 Then

            dr("名称") = Parts(2) '否则从地址电话列中提取电话       

        End If

    End If

End If