以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取当前页面名称  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126299)

--  作者:cd_tdh
--  发布时间:2018/10/18 13:40:00
--  获取当前页面名称

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

 


--  作者:y2287958
--  发布时间:2018/10/18 13:58:00
--  
SelectedPage
--  作者:cd_tdh
--  发布时间:2018/10/18 14:06:00
--  
怎么写?
--  作者:有点甜
--  发布时间:2018/10/18 14:51:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/0832.htm

 


--  作者:cd_tdh
--  发布时间: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编辑过]

--  作者:有点甜
--  发布时间:2018/10/18 16:15:00
--  

没看懂你的问题。

 

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

 

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


--  作者:有点甜
--  发布时间:2018/10/18 16:16:00
--  

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

 

改成

 

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

 

其余的,也相应的修改