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