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


  共有3410人关注过本帖树形打印复制链接

主题:临时表问题请请教

帅哥哟,离线,有人找我吗?
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)
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
图片点击可在新窗口打开查看



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望: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
Next

 回到顶部
帅哥哟,离线,有人找我吗?
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


 回到顶部
帅哥哟,离线,有人找我吗?
kmbn
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:286 积分:1926 威望:0 精华:0 注册:2017/7/20 19:46:00
  发帖心情 Post By:2018/10/17 14:40:00 [只看该作者]

老师,“片名”列我加了这一段代码dr1("片名") =  files2(i).Name,显示如下图:

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

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

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

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

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



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/10/17 15:17:00 [只看该作者]

认认真真看7楼代码,认认真真看懂7楼代码

 回到顶部