以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]判断数组  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65058)
--  作者：ymjr2011
--  发布时间：2015/3/8 12:01:00
--  [求助]判断数组
想输出报表，数组中的字段不输出应该怎么写判断？如果遍历当前列的名称包含在数组内则退出当前继续下一个

Dim cls() As String = {"顺序","备注"}
Dim c1 As Integer = 1
Do While c1 < dt.Cols.Count-1

If dt.Cols(c1).Name= cls(c1)
Continue Do
End If
    c1= c1 + 1
Sheet(4, c1).Value = dt.Cols(c1).Name
Loop
--  作者：有点甜
--  发布时间：2015/3/8 12:31:00
--  
Dim cls() As String = {"顺序","备注"}
Dim c1 As Integer = 1
For Each c As DataCol In dt.DataCols
    If Array.IndexOf(cls, c.Name) > -1 Then
        c1 += 1
        Sheet(4, c1).Value = c.Name
    End If
Next
--  作者：ymjr2011
--  发布时间：2015/3/8 12:37:00
--  
甜版，是过滤掉数组中的，你的是只输出数组中的
--  作者：ymjr2011
--  发布时间：2015/3/8 13:04:00
--  
并将内容也一并输出怎么写，写了半天都不对。请版主帮下
--  作者：ymjr2011
--  发布时间：2015/3/8 13:05:00
--  
内容是从第5行开始
--  作者：有点甜
--  发布时间：2015/3/8 14:26:00
--  

条件取反你都不会写？

 

Dim cls() As String = {"顺序","备注"}
Dim c1 As Integer = 1
For Each c As DataCol In dt.DataCols
    If Array.IndexOf(cls, c.Name) = -1 Then
        c1 += 1
        Sheet(4, c1).Value = c.Name
    End If
Next
--  作者：ymjr2011
--  发布时间：2015/3/8 17:47:00
--  
谢谢