Foxtable(狐表)用户栏目专家坐堂 → 获取当前页面名称


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

主题:获取当前页面名称

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


加好友 发短信
等级:狐精 帖子:3205 积分:21311 威望:0 精华:0 注册:2016/3/28 16:57:00
获取当前页面名称  发帖心情 Post By:2018/10/18 13:40:00 [只看该作者]

老师,怎么获取当前页签的名称呢?

 


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


加好友 发短信
等级:狐神 帖子:4752 积分:34568 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2018/10/18 13:58:00 [只看该作者]

SelectedPage

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


加好友 发短信
等级:狐精 帖子:3205 积分:21311 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/10/18 14:06:00 [只看该作者]

怎么写?

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


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


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


加好友 发短信
等级:狐精 帖子:3205 积分:21311 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/10/18 16:12:00 [只看该作者]

老师,所有待办,弄到一个表里面没问题了,现在我根据待办反向去查看需要审批的数据,代码如下,打开,但是该条数据的行。

且报错:

.NET Framework 版本:2.0.50727.8745
Foxtable 版本:2018.10.9.1
错误所在事件:主窗口_Table4,DoubleClick
详细错误信息:
语法错误:“b”运算符后缺少操作数。

 

ID是字符型,采用的GuID生成的ID。


 

If e.Col.name = "查看"  Then
    Dim r As Row = Tables("主窗口_Table4").Current
    Dim dd As String = r("ID")
    Dim nm As String = r("表名")
    Dim ck As String = r("页签名")
    If DataTables.Contains(nm) = False
        DataTables.Load(nm)
    End If
    Functions.Execute("增加页签",ck,ck)
msgbox(1)
    'DataTables(nm).Save()  '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值.
    Dim dr As DataRow = DataTables(nm).Find("[ID] = " & dd)
    If dr Is Nothing Then
        DataTables(nm).AppendLoad("[ID] = " & dd)
        dr =  DataTables(nm).Find("[ID] = " & dd)
    Else
        dr.Load()
    End If
msgbox(2)
    If dr IsNot Nothing Then
        Dim wz As Integer = Tables(nm).FindRow("[ID] = " & dd)
        If wz < 0 Then  '如果因为筛选导致此合同签订类不可见
            Tables(nm).Filter = ""
            wz =Tables(nm).FindRow(dr)
        End If
msgbox(3)
        If wz >= 0 Then
            Tables(nm).Position = wz
            Tables(nm).TopVisibleRow = wz   '定位行后设置为第一个可见行位置,http://www.foxtable.com/webhelp/scr/2358.htm
        End  If
    End  If
msgbox(4)
End  If

 

[此贴子已经被作者于2018/10/18 16:20:54编辑过]

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


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

没看懂你的问题。

 

1、执行代码,你要达到什么效果,现在遇到的问题是什么?

 

2、尽量截图或做个实例发上来测试。


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


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

Dim dr As DataRow = DataTables(nm).Find("[ID] = " & dd)

 

改成

 

Dim dr As DataRow = DataTables(nm).Find("[ID] = '" & dd & "'")

 

其余的,也相应的修改


 回到顶部