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


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

主题:数据提取问题

帅哥哟,离线,有人找我吗?
jhxb8821
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
数据提取问题  发帖心情 Post By:2022/4/18 11:01:00 [显示全部帖子]

老师,我想在“工资录入表”选择相应的列表项目后,是否能实现从“基本工资标准表”中,自动提取“工资代号”和“工资标准”两列数据自动填充,请指教
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:工资管理项目1.foxdb


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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
已解决  发帖心情 Post By:2022/4/18 12:09:00 [显示全部帖子]

非常感谢

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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
屏蔽一部分代码  发帖心情 Post By:2022/4/18 13:36:00 [显示全部帖子]

蓝老师,级别工资“级别等级”下拉菜单太长,我想屏蔽一部分,只显示相邻区间,怎么设置?比如:一级巡视员只显示8级-13级,二级巡视员只显示10级-15级,一级调研员只显示11级-17级

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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
过滤条件  发帖心情 Post By:2022/4/18 14:03:00 [显示全部帖子]

请老师帮我看看这个过滤的条件怎么写

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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
已解决  发帖心情 Post By:2022/4/18 15:07:00 [显示全部帖子]

非常感谢,完美解决

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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
打开视频播放问题  发帖心情 Post By:2022/4/21 15:54:00 [显示全部帖子]

老师,帮我看看,双击表A,打开视频播放器窗口,代码怎么修改,窗口视频播放器直接该行音视频?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:wmp播放器.foxdb


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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
继续播放代码  发帖心情 Post By:2022/4/21 16:33:00 [显示全部帖子]

目前,播放后,按暂停,就停止播放,再按播放,就从头开始,如何实现“继续播放”

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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
代码  发帖心情 Post By:2022/4/21 16:53:00 [显示全部帖子]

双击表行,出错,提示DoubleClick未设置对象变量或with变量;下面代码有错

If e.Col.Name = "本地音视频" Then

    e.Cancel = True

    Forms("音视频播放窗口").Open()

    If e.Row.IsNull("本地音视频") = False Then

        Dim url As String = ProjectPath & "Attachments\" & e.Row("本地音视频")

        Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url

        Dim ls As WinForm.ListBox = Forms("音视频播放窗口").Controls("ListBox1")

        ls.Items.Add(url)

    End If

End If


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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
请教老师  发帖心情 Post By:2022/4/21 17:11:00 [显示全部帖子]

我这样写不行,我水平太差了,麻烦蓝老师将这处,和继续播放的代码帮我写一些,非常感谢
If e.Col.Name = "本地音视频" Then
    e.Cancel = True
    Forms("音视频播放窗口").Open()
    If FileSys.FileExists("本地音视频") Then
    Messagebox.Show("文件已经存在!", "提示")
ElseIf e.Row.IsNull("本地音视频") = False Then
        Dim url As String = ProjectPath & "Attachments\" & e.Row("本地音视频")
        Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url
        Dim ls As WinForm.ListBox = Forms("音视频播放窗口").Controls("ListBox1")
        ls.Items.Add(url)
    End If
End If

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


加好友 发短信
等级:四尾狐 帖子:849 积分:5867 威望:0 精华:0 注册:2016/4/15 22:24:00
代码  发帖心情 Post By:2022/4/21 17:28:00 [显示全部帖子]

”继续播放“的代码也请帮我写一下,非常感谢

 回到顶部
总数 68 1 2 3 4 5 6 7 下一页