主题：[求助]字符串拆分及赋值问题。

兄弟，看看我的 那个“统计”click事件中有关分组统计的那段代码，反正有问题。

我的思路是：根据“vbcrlf”拆分后形成若干个字符串，每个字段形成一个sql语句，进行分组统计，然后将分组统计的结果进行合并，形成一个数据表，就是“统计图形”中的“table1”的数据源。

我的代码如下：

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

For i = 0 To n-1

    If strs(i)>"" Then

-----

    Dim g As New GroupTableBuilder("统计表" & i,sql)

    If tongji=“性别” Then

        g.Caption = "性别统计"

        g.Groups.AddDef("性别", "", "性别")

        g.Totals.AddDef("姓名", AggregateEnum.Count,"","病例数")

        dts(i) = g.BuildDataSource()

    End If

Next

Next

forms("统计图形").Open

Tables("统计图形_Table1").DataSource = dts(0)

有没有这种写法？谢谢！