主题：当选中项目后，清除已经选中的数据空格后边的数据

如题：

 

 

此主题相关图片如下：qq截图20111211224240.png


此主题相关图片如下：qq截图20111211224253.png

 

Dim Tel As String = "0759-3166876"
Dim Parts() As String = Tel.Split("-")
Output.Show("区号:" & Parts(0))
Output.Show("电话:" & Parts(1))

 

 

 

这个代码如何用到表A中呢？例如表A的“名称”列字符是"123－KK”

而在“品名”列中得到结果"123”