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


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

主题:数据提取问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


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


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:wmp播放器.zip


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


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

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

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


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


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


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

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

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


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


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

 回到顶部
总数 39 1 2 3 4 下一页