以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  临时表问题请请教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126225)
--  作者：kmbn
--  发布时间：2018/10/16 21:15:00
--  临时表问题请请教
请教老师！代码如下：
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
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2018/10/16 21:34:00
--  
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)

Tables("首页_Table3").DataSource = dtb.BuildDataSource()
Dim dir1 As new io.DirectoryInfo("D:\\影片海报")
Dim dir2 As new io.DirectoryInfo("D:\\迅雷下载")
Dim files1=dir1.GetFiles
Dim files2=dir2.GetFiles

For i As Integer = 0 To files1.length-1
    Dim dr1 As DataRow = DataTables("首页_Table3").AddNew()
    dr1("海报URL") = "D:\\影片海报\\" & files1(i).Name
    dr1("影片URL") = "D:\\迅雷下载\\" & files2(i).Name
Next
--  作者：kmbn
--  发布时间：2018/10/16 21:45:00
--  
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
谢谢老师
--  作者：hc-mall
--  发布时间：2018/10/16 22:54:00
--  
有点蓝写的代码能解决你的问题是因为，你存储的文件本来就一一对应的！应该要判断一下影片名称和文件名是不是一一对应，能找到对应的影片，就存储到对应行的“”海报URL", "影片URL"，否则就新建一行，存入影片名称和”海报URL", "影片URL"。我也是新手，班门弄斧一下！
--  作者：kmbn
--  发布时间：2018/10/17 9:40:00
--  
设计理论也想通的，但是在具体代码实现的时候就无从下手了图片点击可在新窗口打开查看
也不知道老师们的思路与代码是怎么联系起来的，有没有相关的知识学习
--  作者：kmbn
--  发布时间：2018/10/17 9:44:00
--  
老师还想问个问题：
   临时表有没有“双击单元格后执行”的功能
--  作者：有点甜
--  发布时间：2018/10/17 9:54:00
--  

参考代码

 

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)


\'Tables("首页_Table3").DataSource = dtb.BuildDataSource()
Dim dir1 As new io.DirectoryInfo("D:\\影片海报")
Dim dir2 As new io.DirectoryInfo("D:\\迅雷下载")
Dim files1=dir1.GetFiles
Dim files2=dir2.GetFiles


For i As Integer = 0 To files1.length-1
    \'Dim dr1 As DataRow = DataTables("首页_Table3").AddNew()
    \'dr1("海报URL") = "D:\\影片海报\\" & files1(i).Name
    Dim name = files1(i).name.replace(files1(i).Extension, "")
    msgbox(name)
    For Each file As object In files2
        If file.name Like "*" & name & "*" Then
            \'       dr1("影片URL") = "D:\\迅雷下载\\" & file.Name
            msgbox(file.name)
        End If
    Next
Next
--  作者：kmbn
--  发布时间：2018/10/17 14:40:00
--  
老师，“片名”列我加了这一段代码dr1("片名") =  files2(i).Name，显示如下图：

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

我想不要出现后缀名，如下图

图片点击可在新窗口打开查看此主题相关图片如下：2.png
图片点击可在新窗口打开查看

改了半天了没有搞出个头绪来，请老师指点，下图的也试了没有搞对

图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2018/10/17 15:17:00
--  
认认真真看7楼代码，认认真真看懂7楼代码