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)
Next
For Each s1 As String In ary1
Dim dr1 As DataRow = DataTables("自动生成影片海报临时表").AddNew()
dr1("海报URL")=s1
Next
For i As Integer = 0 To files2.length-1
Dim file = files2(i)
ary2(i) =("D:\迅雷下载") & "\" & (file.Name)
Next
For Each s2 As String In ary2
Dim dr2 As DataRow = DataTables("自动生成影片海报临时表").AddNew()
dr2("影片URL")=s2
Next
Tables("首页_Table3").SetColVisibleWidth("序号|44|片名|150|海报URL|220|影片URL|297|")
执行结果如下图：
此主题相关图片如下：1.png
可是想要的结果是这样的：
此主题相关图片如下：2.png
加好友 
发短信
Post By：2018/10/16 21:15:00 [显示全部帖子]
