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

说明如下：

 

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

 

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

 

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

 

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

 

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

自己顶一下

forms("新增销售合同窗口").open

蓝大师：

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

 

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

副本表的名称和主窗口中的表名称不一样，其他操作一样，把名字改过

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

 

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

 

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

 

 

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

补充：也就是说，在项目使用过程中，点击左侧任务的动作要随时随地，因为每一张表都有一个打开主表的按钮，所以我认为在点击任务的代码中应该不需要去确定主表是哪个，你说呢？

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

或者在打开窗口的下面加一行

晕了，这么简单的一件事啊！！！，想问问，为什么变成TRUE就ok了呢？我原本是希望这些窗口打开后是不允许编辑的，以免篡改数据啊。