Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据提取问题


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

主题：数据提取问题
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00 		代码  发帖心情 Post By：2022/4/21 20:00:00 [只看该作者]

老师，请看一下'' 下一曲“按钮代码，这个代码怎么修改才对
e.Form.Controls("Panel1").Basecontrol.controls("ListBox1").ctlcontrols.next

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/21 20:36:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/0446.htm

设置下一行后，套用16楼的代码改改即可。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/21 20:41:00 [只看该作者]

以下是引用jhxb8821在2022/4/21 17:53:00的发言：
继续播放代码，这样写好像有问题，请修改
Dim url As String = ProjectPath & "Attachments\" & e.Row("本地音视频")
Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url 
If url Is Nothing Then
e.Form.Controls("Panel1").Basecontrol.controls("mplayer").url = play
e.Form.Controls("Panel1").Basecontrol.controls("mplayer").ctlcontrols.play
Else
e.Form.Controls("Panel1").Basecontrol.controls("mplayer").ctlcontrols.play
End If

if e.Form.Controls("Panel1").Basecontrol.controls("mplayer").url = "" then
    If tables("表A").current.IsNull("本地音视频") = False Then
        Dim url As String = ProjectPath & "Attachments\" & tables("表A").current("本地音视频")
If FileSys.FileExists(url) Then
        e.Form.Controls("Panel1").Basecontrol.controls("mplayer").url = url
end if
    End If
end if
e.Form.Controls("Panel1").Basecontrol.controls("mplayer").ctlcontrols.play
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00 		代码  发帖心情 Post By：2022/4/22 12:02:00 [只看该作者]

蓝老师，这段代码需要实现双击单元格，打开播放窗口，文件自动加入列表单，然后自动播放。目前运行到1就运行不下去了，请帮忙哪里出了问题
If e.Col.Name = "本地音视频" Then
    e.Cancel = True
    Forms("音视频播放窗口").Open()
    If e.Row.IsNull("本地音视频") = False Then
        Dim url As String = ProjectPath & "Attachments\音视频文件" & e.Row("本地音视频")
        MessageBox.Show(1)
If FileSys.FileExists(url) Then
      MessageBox.Show(2)
     Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url
      MessageBox.Show(3)
    Dim ls As WinForm.ListBox = Forms("音视频播放窗口").Controls("ListBox1")
     MessageBox.Show(4)
        ls.Items.Add(url)
        MessageBox.Show(5)
End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/22 13:31:00 [只看该作者]

不存在这个路径和文件

 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00 		这  发帖心情 Post By：2022/4/22 14:28:00 [只看该作者]

就是这个路径，表中文件就存在这里Attachments\音视频文件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:wmp播放器.foxdb

[此贴子已经被作者于2022/4/22 14:52:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/22 15:13:00 [只看该作者]

我这里没有您的路径和文件，无法测试

如果说下面1可以弹出，2没有弹出，绝对是路径不正确，FileExists判断不可能有问题的

        MessageBox.Show(1)
MessageBox.Show(url)
If FileSys.FileExists(url) Then
      MessageBox.Show(2)
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00 		代码  发帖心情 Post By：2022/4/22 15:40:00 [只看该作者]

我调整一下路径试一试,我分别用了以下三种路径测试，结果还是一样，只显示“1”,怎么压缩包传不上来，60多MB

''     Dim url As String = ProjectPath & "Attachments\音视频文件" & e.Row("本地音视频")
        Dim url As String = ProjectPath & "Attachments" & e.Row("本地音视频")
   ''    Dim url As String = ProjectPath & "音视频文件" & e.Row("本地音视频") 
[此贴子已经被作者于2022/4/23 10:46:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：618 积分：4560 威望：0 精华：0 注册：2016/4/15 22:24:00 		二合一问题  发帖心情 Post By：2022/4/27 18:57:00 [只看该作者]

能否将专业报表，下列两行内容显示在一行中，请老师指点一下
    
    rx = New prt.RenderText
    rx.Style.FontSize = 11
    rx.Style.Spacing.top = 2
    rx.Text = "制单人: 开发者"
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left 
    doc.Body.Children.Add(rx)


    
    rx = New prt.RenderText
    rx.Style.FontSize = 11
    rx.Style.Spacing.top = 2
    rx.Text = "打印日期: " & Date.Today
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Right    
    doc.Body.Children.Add(rx)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106178 积分：540007 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/28 9:03:00 [只看该作者]

rx = New prt.RenderText
    rx.Style.FontSize = 11
    rx.Style.Spacing.top = 2
    rx.Text = "制单人: 开发者 打印日期: " & Date.Today"
    rx.Style.TextAlignHorz = prt.AlignHorzEnum.Left 
    doc.Body.Children.Add(rx)
 回到顶部
总数 112 上一页 1 2 3 4 5 6 7 8 9 10 下一页 ..12
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 5 次数据查询