临时表问题请请教 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教老师！代码如下：

Dim dtb As New DataTableBuilder("自动生成影片海报临时表")

dtb.AddDef("序号", Gettype(String), 100)

dtb.AddDef("片名", Gettype(String), 100)

dtb.AddDef("海报URL", Gettype(String), 100)

dtb.AddDef("影片URL", Gettype(String), 100)

dtb.Build()

Tables("首页_Table3").DataSource = DataTables("自动生成影片海报临时表")

Dim dir1 As new io.DirectoryInfo("D:\影片海报")

Dim dir2 As new io.DirectoryInfo("D:\迅雷下载")

Dim files1=dir1.GetFiles

Dim files2=dir2.GetFiles

Dim ary1(files1.length-1) As String

Dim ary2(files2.length-1) As String

For i As Integer = 0 To files1.length-1

Dim file = files1(i)

ary1(i) =("D:\影片海报") & "\" & (file.Name)

For Each s1 As String In ary1

Dim dr1 As DataRow = DataTables("自动生成影片海报临时表").AddNew()

dr1("海报URL")=s1

For i As Integer = 0 To files2.length-1

Dim file = files2(i)

ary2(i) =("D:\迅雷下载") & "\" & (file.Name)

For Each s2 As String In ary2

Dim dr2 As DataRow = DataTables("自动生成影片海报临时表").AddNew()

dr2("影片URL")=s2

Tables("首页_Table3").SetColVisibleWidth("序号|44|片名|150|海报URL|220|影片URL|297|")

执行结果如下图：

此主题相关图片如下：1.png

可是想要的结果是这样的：

此主题相关图片如下：2.png

主题：临时表问题请请教