主题：数据表

If names.Contains(name) Then
    Names.Remove(name)
End If

搞不懂你什么逻辑

 

Dim names As New List(Of String)
Dim names2 As New List(Of String)
For i As Integer = 0 To Tables("开具piao据").Rows.Count-1
    names.Add(Tables("开具piao据").Rows(i)("收购凭证号"))
    names2.Add(Tables("开具piao据").Rows(i)("收购凭证号"))
Next
Dim n As Integer = 0
Dim a As Integer = 0
For Each name As String In names2
    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

 例子上传上来

Dim nums() As Integer = {20, 35}
Dim idx As Integer = 0
For Each num As Integer In nums
    output.show("另一行")
    For i As Integer = idx To num - 1
        If i < Tables("表A").Rows.Count  Then
            output.show(Tables("表A").rows(i)("第一列"))
        Else
            Exit For
        End If
    Next
    idx = num
Next

 呃，你自己想办法，怎么知道你怎么定义哪些要在一行。

 

 上传例子我就告诉你。

 贴一段代码别人知道你想问什么啊。

 

 例子上传上来。

 

呃，是你代码修改的问题。

 

原本是怎样的save以后就是怎样的。

 

如果有疑问，请上传例子说明

 那你用vba代码试试。

 

 具体什么问题，请用例子说明。

  什么意思，现在这样写有什么问题？

 msgbox各个值看一下