Foxtable(狐表)用户栏目专家坐堂 → [求助]如何锁定窗口中的表?


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

主题:[求助]如何锁定窗口中的表?

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
[求助]如何锁定窗口中的表?  发帖心情 Post By:2015/5/21 11:54:00 [显示全部帖子]

两个窗口,点击一个窗口中的按钮,打开另外一个窗口,另外的这个窗口中有一个表,类型为normal,作为主表。按钮代码如下:

 

Dim filter As String
filter = "所属项目='" & Tables("项目信息库").current("项目名称") & "'"
DataTables("项目问题点清单").LoadFilter = filter
DataTables("项目问题点清单").Load()
If DataTables("项目问题点清单").find("所属项目='" & Tables("项目信息库").current("项目名称") & "'") IsNot Nothing Then
    forms("问题点清单窗口").open()
    If user.name ="开发者" OrElse user.name = Tables("项目信息库").current("项目负责人") Then
        DataTables("问题点清单窗口_项目问题点清单").AllowEdit = True
    Else
        DataTables("问题点清单窗口_项目问题点清单").AllowEdit = False
    End If
Else
    Dim Result As DialogResult
    Result = MessageBox.Show("该项目未添加问题清单,现在添加吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        If user.name ="开发者" OrElse user.name = Tables("项目信息库").current("项目负责人") Then
            forms("问题点清单窗口").open()
        Else
            MessageBox.show("您无权进行添加!","警告",MessageBoxButtons.OK, MessageBoxIcon.Warning)
        End If
    Else
        Return
    End If
End If

 

 

红字部分就是想要锁定窗口中的表,但是锁定的却不是窗口中的表,而是系统中的数据表(即窗口中绑定的表)

 

尝试用datatables(“窗口_tables名”)的格式写上述红色部分,也不行

 

 

大师帮着看一下。谢谢!


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/5/21 11:58:00 [显示全部帖子]

去掉“data“?

[此贴子已经被作者于2015/5/21 11:57:46编辑过]

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/5/21 12:01:00 [显示全部帖子]

bin:还是不行啊

是不是跟窗口类型有关系?问题点清单窗口  是模式窗口。上述代码是不是只适合主窗口类型?

 

而且执行修改后的代码,弹出“不存在tables()”的表之类的提示。

[此贴子已经被作者于2015/5/21 12:01:58编辑过]

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/5/21 12:03:00 [显示全部帖子]

有一个追问,bin

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/5/21 12:08:00 [显示全部帖子]

谢谢,试一下。

 回到顶部