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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 临时表问题请请教

共有3651人关注过本帖树形打印复制链接主题：临时表问题请请教

kmbn

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

临时表问题请请教 发帖心情

Post By：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)

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110558 积分：562680 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

kmbn

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2018/10/16 21:45:00 [只看该作者]

谢谢老师

hc-mall

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：119 积分：918 威望：0 精华：0 注册：2018/8/30 9:53:00

Post By：2018/10/16 22:54:00 [只看该作者]

有点蓝写的代码能解决你的问题是因为，你存储的文件本来就一一对应的！应该要判断一下影片名称和文件名是不是一一对应，能找到对应的影片，就存储到对应行的“”海报URL", "影片URL"，否则就新建一行，存入影片名称和”海报URL", "影片URL"。我也是新手，班门弄斧一下！

kmbn

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2018/10/17 9:40:00 [只看该作者]

设计理论也想通的，但是在具体代码实现的时候就无从下手了图片点击可在新窗口打开查看

也不知道老师们的思路与代码是怎么联系起来的，有没有相关的知识学习

kmbn

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2018/10/17 9:44:00 [只看该作者]

老师还想问个问题：

临时表有没有“双击单元格后执行”的功能

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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