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


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

主题：数据提取问题
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/18 11:56:00 [显示全部帖子]

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工资管理项目1.zip
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/18 13:47:00 [显示全部帖子]

参考这种，使用代码动态设置：http://www.foxtable.com/webhelp/topics/1457.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/18 14:15:00 [显示全部帖子]

增加一个级别2的整数辅助列，，存储1、2、3、4这种级别数字

If e.IsFocusCell Then '如果是焦点所在单元格
    If e.Col.Name = "级别等级" Then '如果正在编辑的是县市列
        '从行政区域表提取该省市的县市作为列表项目
if e.Row("非领导职务名称")  = “一级巡视员”
        e.Col.Combolist = DataTables("基本工资标准表").GetComboListString("等级", "[级别2] >=8 and 级别2 <=13'")
elseif e.Row("非领导职务名称")  = “二级巡视员”
        e.Col.Combolist = DataTables("基本工资标准表").GetComboListString("等级", "[级别2] >=10 and 级别2 <=15'")
elseif.....
……
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/21 16:12:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:wmp播放器.zip
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/21 16:42:00 [显示全部帖子]

播放按钮判断如果url有值，就不要重新赋值了，直接播放即可

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/21 17:00:00 [显示全部帖子]

判断一下文件是否存在：http://www.foxtable.com/webhelp/topics/0337.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/21 17:13:00 [显示全部帖子]

If e.Col.Name = "本地音视频" Then
    e.Cancel = True
    Forms("音视频播放窗口").Open()
    If e.Row.IsNull("本地音视频") = False Then
        Dim url As String = ProjectPath & "Attachments\" & e.Row("本地音视频")
If FileSys.FileExists(url) Then
        Forms("音视频播放窗口").Controls("Panel1").Basecontrol.controls("mplayer").url = url
        Dim ls As WinForm.ListBox = Forms("音视频播放窗口").Controls("ListBox1")
        ls.Items.Add(url)
end if
    End If
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/4/21 17:29:00 [显示全部帖子]

去看看编程基础，学一下自己写，写不通的在发上来改

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：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楼的代码改改即可。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110792 积分：563898 威望：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
 回到顶部
总数 50 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询