Foxtable(狐表)用户栏目专家坐堂 → [求助]执行任务栏的单击链接后,新增记录窗口无法编辑,求解!


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

主题:[求助]执行任务栏的单击链接后,新增记录窗口无法编辑,求解!

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
[求助]执行任务栏的单击链接后,新增记录窗口无法编辑,求解!  发帖心情 Post By:2015/8/22 14:17:00 [只看该作者]

说明如下:

 

主窗口中含有副表性质的“合同信息表”,左侧为共有窗口,共有窗口中含有一个任务栏,单击任务栏中的任务链接代码如下:

 

Select Case e.Link.Name
    Case "销售合同"
        Dim filter As String
        filter ="合同日期 = #" & Date.today() & "# "
        Tables("合同信息表").Filter = filter
        If Tables("合同信息表").Rows.Count = 0 Then
            messagebox.show("亲,今天没有合同哦,加油!","提示")
            Return
        Else
            forms("新增销售合同窗口").open
            Tables("合同信息表").ApplyFilter = False
        End If
    Case "采购合同"
        Dim filter As String
        filter ="合同日期 = #" & Date.today() & "# "
        Tables("采购信息表").Filter = filter
        If Tables("采购信息表").Rows.Count = 0 Then
            messagebox.show("今天没有花钱,建议去看看库存吧!","提示")
            Return
        Else
            forms("新增采购合同窗口").open
            Tables("采购信息表").ApplyFilter = False
        End If
    Case "发货记录"
        Dim filter As String
        filter = "出货日期 = #" & Date.today() & "# "
        Tables("出货信息表").Filter = filter
        If Tables("出货信息表").Rows.Count = 0 Then
            messagebox.show("亲,今天没有发货,去销售合同那边瞧瞧吧!","提示")
            Return
        Else
            forms("新增发货记录窗口").open
            Tables("出货信息表").ApplyFilter = False
        End If
    Case "收款总额"
        Dim filter As String
        filter = "收款日期 = #" & Date.today() & "# "
        Tables("合同账款表").Filter = filter
        If Tables("合同账款表").Rows.Count = 0 Then
            messagebox.show("唉,真可怜,赶紧去催催吧!","提示")
            Return
        Else
            forms("今日收款窗口").open
            Tables("合同账款表").ApplyFilter = False
        End If
    Case "支出总额"
        Dim filter As String
        filter = "支付日期 = #" & Date.today() & "# "
        Tables("支付明细表").Filter = filter
        If Tables("支付明细表").Rows.Count = 0 Then
            messagebox.show("省钱就是硬道理,加油!","提示")
            Return
        Else
            forms("今日支出窗口").open
            Tables("支付明细表").ApplyFilter = False
        End If
    Case "收款预警"
        Dim filter As String
        filter = "到账日期 <= #" & Date.today.AddDays(7) & "# and 支付完结='否'"
        Tables("合同信息表").Filter = filter
        If Tables("合同信息表").Rows.Count = 0 Then
            messagebox.show("亲,不要忘了程序猿在背后提醒你呦!","提示")
            Return
        Else
            forms("收款预警窗口").open
            Tables("合同信息表").ApplyFilter = False
        End If
    Case "付款预警"
        Dim filter As String
        filter = "付款期限 <= #" & Date.today.AddDays(7) & "# and 支付完结='否' "
        Tables("采购信息表").Filter = filter
        If Tables("采购信息表").Rows.Count = 0 Then
            messagebox.show("亲,不要忘了程序猿在背后提醒你呦!","提示")
            Return
        Else
            forms("付款预警窗口").open
            Tables("采购信息表").ApplyFilter = False
        End If
    Case "发货预警"
        Dim filter As String
        filter = "交货期限 <= #" & Date.today.AddDays(7) & "# and 出货完结='否'"
        Tables("合同信息表").Filter = filter
        If Tables("合同信息表").Rows.Count = 0 Then
            messagebox.show("亲,不要忘了程序猿在背后提醒你呦!","提示")
            Return
        Else
            forms("发货预警窗口").open
            Tables("合同信息表").ApplyFilter = False
        End If
End Select

 

代码中所打开的窗口中含有的表均不是副本形式,且根据实际需要只显示了部分列。

 

问题:项目启动后,如果不点击左侧共有窗口中的任务链接,则主窗口中的新增功能使用正常。一旦点击任务链接,虽然可以打开新增记录的页面,但是在该窗口中无法实现编辑功能,即不能输入内容。

 

希望大师帮忙看看问题出在哪里?

[此贴子已经被作者于2015/8/22 14:17:45编辑过]

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/8/22 14:37:00 [只看该作者]

自己顶一下

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


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/22 14:40:00 [只看该作者]

所有打开窗口下加一行,试一下
forms("新增销售合同窗口").open
MainTable = Tables("窗口所有者表")

[此贴子已经被作者于2015/8/22 14:40:07编辑过]

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/8/22 14:51:00 [只看该作者]

蓝大师:

你的思路我知道什么意思了,追问一个问题:副本表可以进行代筛选吗?

 

即我把上面的这些新打开的窗口中的表全部采用副本形式,filter好像没有起作用


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


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/22 15:02:00 [只看该作者]

副本表的名称和主窗口中的表名称不一样,其他操作一样,把名字改过
[此贴子已经被作者于2015/8/22 15:05:31编辑过]

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/8/22 15:15:00 [只看该作者]

有些过程我可能没有讲的太清楚,我把项目打个包你帮我看一下吧,我原本以为看了你的提示,应该可以的,但是感觉还是有问题,因为实际过程中我不太需要点击一次就确定一个主表。

 

基本过程是这样的:项目启动------点击左侧任务------出现新的模式窗口-------关闭窗口-------打开主页上的“销售合同”图片---------点击“新增”-------“合同细节窗口”打开------编辑内容,但是就是无法编辑!

 

上述过程中,如果去掉点击左侧任务的话,直接点击“销售合同”图片,则可顺利实现新增的编辑。

 

 

何解???这个问题耗了我两天的时间了,自定义登录窗口密码8888

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/8/22 15:18:00 [只看该作者]

补充:也就是说,在项目使用过程中,点击左侧任务的动作要随时随地,因为每一张表都有一个打开主表的按钮,所以我认为在点击任务的代码中应该不需要去确定主表是哪个,你说呢?
[此贴子已经被作者于2015/8/22 15:18:05编辑过]

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


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/22 15:26:00 [只看该作者]

你窗口中的表要把允许编辑设置为true

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


加好友 发短信
等级:超级版主 帖子:110581 积分:562801 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2015/8/22 15:28:00 [只看该作者]

或者在打开窗口的下面加一行
Tables("合同信息表").AllowEdit = True

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


加好友 发短信
等级:三尾狐 帖子:633 积分:4016 威望:0 精华:0 注册:2015/1/27 9:34:00
  发帖心情 Post By:2015/8/22 15:32:00 [只看该作者]

晕了,这么简单的一件事啊!!!图片点击可在新窗口打开查看,想问问,为什么变成TRUE就ok了呢?我原本是希望这些窗口打开后是不允许编辑的,以免篡改数据啊。


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