189 8069 5689
可以把简单的思路跟你说一下
让客户满意是我们工作的目标，不断超越客户的期望值来自于我们对这个行业的热爱。我们立志把好的技术通过有效、简单的方式提供给客户，将通过不懈努力成为客户在信息化领域值得信任、有价值的长期合作伙伴，公司提供的服务项目有：域名注册、雅安服务器托管、营销软件、网站建设、东港网站维护、网站推广。
datatable转成arraylist的话
首先得明确你的datatable中有几列数据。如果按照通常的类似数据库数据的结构的数据的话，应该是要把datatable转成一个二维的arraylist。（如果是只有一列的datatable就可以省一步）
先实例化装最后结果的arraylist（arr1），接着实例化一个datarow（dt1）， 把datatable里的每一行的数据 赋值到datatrow（dt1）中，之后创建一个arraylist（arr2），把datarow（dt1）中的数据遍历到这个arraylist（arr2）中，之后把arraylist（arr2）做为一个元素add进arraylist（arr1），也就是形成一个二维的arraylist。
arraylist转成datatable的话
同样是以二维arraylist为例，先遍历第一层arraylist，实例化一个datarow（dt1），之后遍历第二层arraylist，把第二层的数据赋值到dt1中，之后 把dt1添加到datatable中，即可。
只是说了一个大概的思路，希望对你有帮助！
VB.NET 2005,已经实现了continue语法，具体是这样操作：
如果 Continue 语句在 Do...Loop 循环中，请将该语句更改为 Continue Do。
如果 Continue 语句在 For...Next 循环中，请将该语句更改为 Continue For。
如果 Continue 语句在 While...End While 循环中，请将该语句更改为 Continue While。
否则，请移除 Continue 语句。
用法：
For i As Integer = 0 To 100
' If i = 50 跳过 Console.Writeline statement
If i = 50 Then Continue For
Console.WriteLine(i.ToString)
Next
' Do While using Continue statement.
Dim ii As Integer = 1
Do While ii 100
ii += 1
' If ii = 50 跳过 Console.Writeline statement
If ii = 50 Then Continue Do
Console.WriteLine(ii.ToString)
Loop
' While using Continue statement.
Dim iii As Integer = 1
While iii 100
iii += 1
' If iii = 50 跳过 Console.Writeline statement
If iii = 50 Then Continue While
Console.WriteLine(iii.ToString)
End While
Public Class Form1
Private TPS As Integer
Private TPPath() As String '定义不确定元素个数组，及动态数组
Private Sub LoadPhoto()
'将图片路径及图片名加载到数组
Dim JS As Integer '计数用
For Each foundFile As String In My.Computer.FileSystem.GetFiles(CurDir() "\职员图片")
TPS = TPS + 1 '将图片数存入变量中
Next
ReDim TPPath(TPS - 1) '确定数组大小
For Each FoundFile As String In My.Computer.FileSystem.GetFiles(CurDir() "\职员图片")
'将图片路径存入数组
TPPath(JS) = FoundFile
JS = JS + 1
Next
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadPhoto()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = TPPath.Length '获取数组大小
Label1.Text = TPPath(1) '获取数组中第2个元素的值
End Sub