• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 223
  • Last Modified:

Help with passing table names and testing if table exist in For Next Loop

Hi,

I have max 4 tables (Country, NSN,NSC,NAA) in my LinkSearch File, How do I modify the code below to search for all 4 tables and encrypt if they exist?

Dim sec As New Security
        For i As Integer = 0 To dtsetlinkBEL.Tables(0).Rows.Count - 1
            For j As Integer = 0 To dtsetlinkBEL.Tables(0).Columns.Count - 1
                dtsetlinkBEL.Tables(0).Rows(i).Item(j) = sec.psEncrypt(dtsetlinkBEL.Tables(0).Rows(i).Item(j))
            Next
        Next
        dtsetlinkBEL.WriteXml(Application.StartupPath + "\LinkSearch.xml")


Thanks,

Victor
0
vcharles
Asked:
vcharles
1 Solution
 
joriszwaenepoelCommented:
Dim sec As New Security
For t as Integer = 0 to dtsetlinkBEL.Tables.Count-1
       For i As Integer = 0 To dtsetlinkBEL.Tables(t).Rows.Count - 1
            For j As Integer = 0 To dtsetlinkBEL.Tables(t).Columns.Count - 1
                dtsetlinkBEL.Tables(t).Rows(i).Item(j) = sec.psEncrypt(dtsetlinkBEL.Tables(t).Rows(i).Item(j))
            Next
        Next
Next
        dtsetlinkBEL.WriteXml(Application.StartupPath + "\LinkSearch.xml")
0
 
vcharlesAuthor Commented:
Thank You.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: Microsoft Exchange Server

The MCTS: Microsoft Exchange Server 2010 certification validates your skills in supporting the maintenance and administration of the Exchange servers in an enterprise environment. Learn everything you need to know with this course.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now