我使用了spli对t字符串进行拆分。代码如下：
Dim d1,d2 As String
Dim kind,tongji As String
Dim sql As String
Dim str As String= e.Form.Controls("TextBox2").value
Dim n As Integer
Dim strs() As String
strs =str.replace(vbcr,"").Split(vblf)
n=strs.Length
Dim i As Integer
Dim dts(i) As fxDataSource
For i = 0 To n-1
If strs(i)>"" Then
Dim s As String()=strs.Split(";")
For j As Integer = 0 To s.Length-1
If s(j)>"" Then
If s(j).Contains("统计项目") Then
Dim ss As String()=s.Split(";")
For Each s1 As String In ss
tongji=s1.split(":")(1)
End If
End If
End If
next
end if
next
但提示如下问题：
此主题相关图片如下：360软件小助手截图20131223152726.jpg
看看问题出在哪儿呀！谢谢！
加好友 
发短信
Post By：2013/12/23 15:30:00 [显示全部帖子]
Post By：2013/12/23 15:35:00 [显示全部帖子]
