主题：数据表

        Dim Style As XLS.Style = Book.NewStyle() '定义新样式

        Style.ForeColor = Color.black '设置样式的字体颜色

        ir.Height = 21 '设置行高

        Book.DefaultFont = New Font("黑体",10,FontStyle.Bold) '设置默认字体

        Style.AlignHorz = XLS.AlignHorzEnum.Center

        Style.AlignVert = XLS.AlignVertEnum.Center

        Style.BorderTop = XLS.LineStyleEnum.Thin

        Style.BorderBottom = XLS.LineStyleEnum.Thin

        Style.BorderLeft = XLS.LineStyleEnum.Thin

        Style.BorderRight = XLS.LineStyleEnum.Thin

        For c1 As Integer = 1 To 7

            Sheet1(a+5,c1).Style = Style

        Next

for each r as row in tables(X)

   messagebox.show(r("某一列"))

next

Sheet1(5+a,6).Value = DataTables("开具piao据").Compute("count([收购凭证号])", "收购凭证号 >= Sheet1(5,1).Value and 收购凭证号 <= Sheet1(5,3).Value and 作废 = true")

老师，请问这句代码应如何改？

Dim names As New List(Of String)

For i As Integer = 0 To Tables("开具piao据").Rows.Count-1

    names.Add(Tables("开具piao据").Rows(i)("收购凭证号"))

Next

Dim n As Integer = 0

Dim a As Integer = 0

For Each name As String In names

    Dim nn As String

    nn = name + 1

    nn = format(CInt(nn),"000000000")

    If Names.Contains(nn)= True Then

        n = n + 1

        Continue For

    Else

        Sheet1(5+a,3).Value = format(CInt(name),"000000000")

        Sheet1(5+a,1).Value = Sheet1(5,3).Value - n

        Sheet1(5+a,1).Value  = format(CInt(Sheet1(5+a,1).Value),"000000000")

        Sheet1(5+a,5).Value = DataTables("开具piao据").Compute("count([收购凭证号])", "收购凭证号 >= " & Sheet1(5,1).Value & " and 收购凭证号 <= " & Sheet1(5,3).Value & " and 作废 = false")

        Sheet1(5+a,6).Value = DataTables("开具piao据").Compute("count([收购凭证号])", "收购凭证号 >= " & Sheet1(5,1).Value & " and 收购凭证号 <= " & Sheet1(5,3).Value & " and 作废 = true")

        n = 0

        a = a + 1

    End If

Names.Remove(name)

Next

为什么代码Names.Remove(name)出错？