Dim lst As new List(of String())
lst.Add(new String(){"1","2","3"})
lst.Add(new String(){"a","a","a"})
lst.Add(new String(){"8","8","8"})
lst.Add(new String(){"6","6","3"})
Dim dtb As New DataTableBuilder("A")
dtb.AddDef("A", Gettype(String), 32)
dtb.AddDef("B", Gettype(String), 32)
dtb.AddDef("C", Gettype(String), 32)
Dim t As DataTable = dtb.Build(True)
Dim dr As DataRow
For Each sarr As String() In lst
dr = t.AddNew
For i As Integer = 0 To sarr.Length - 1
dr(t.DataCols(i).Name) = sarr(i)
Next
Next
lst.Clear
Dim drs As List(Of DataRow) = t.Select("","A")
Dim lls As new List(of String)
For Each r As DataRow In drs
lls.Clear
For i As Integer = 0 To t.DataCols.Count - 1
lls.Add(r(t.DataCols(i)))
Next
lst.Add(lls.ToArray)
Next
For Each sarr As String() In lst
Output.Show(sarr(0) & "-" & sarr(1) & "-" & sarr(2))
Next
加好友 
发短信
Post By：2016/9/7 17:23:00 [只看该作者]
