专家坐堂-CurrentChangedFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  CurrentChanged  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193164)

--  作者：1234567
--  发布时间：2024/8/23 9:06:00
--  CurrentChanged

If Forms ("过程记录").opened Then
Dim t01 As Table = Tables("生产管理_Table01")
Dim t10 As Table = Tables("过程记录_Table10")
If t01.Current IsNot Nothing Then
    t10.Filter = "任务单编号 = \'" & t01.Current("任务单编号") & "\'"
Else
     t10.Filter = "false"
End If
End If

为什么不能筛选？

--  作者：有点蓝
--  发布时间：2024/8/23 9:25:00
--
调试看看

If Forms ("过程记录").opened Then
msgbox(1)
Dim t01 As Table = Tables("生产管理_Table01")
Dim t10 As Table = Tables("过程记录_Table10")
If t01.Current IsNot Nothing Then
    t10.Filter = "任务单编号 = \'" & t01.Current("任务单编号") & "\'"
Else
     t10.Filter = "false"
End If
msgbox(t10.Filter)
End If

--  作者：1234567
--  发布时间：2024/8/23 9:29:00
--

调试没反应，没有出现信息提示

--  作者：有点蓝
--  发布时间：2024/8/23 9:38:00
--
说明窗口没有打开

--  作者：1234567
--  发布时间：2024/8/23 9:41:00
--

实际窗口是打开的

此主题相关图片如下：6.png

--  作者：有点蓝
--  发布时间：2024/8/23 9:44:00
--
那不可能没有提示。事件还有其它代码？

--  作者：1234567
--  发布时间：2024/8/23 9:45:00
--
   Forms("过程记录").Open()
msgbox(1)
Dim t01 As Table = Tables("生产管理_Table01")
Dim t10 As Table = Tables("过程记录_Table10")
If t01.Current IsNot Nothing Then
    t10.Filter = "任务单编号 = \'" & t01.Current("任务单编号") & "\'"
Else
     t10.Filter = "false"
End If
msgbox(t10.Filter)

--  作者：1234567
--  发布时间：2024/8/23 9:46:00
--

这样也不行

全部代码如下：

If e.Table.Current IsNot Nothing Then
    Tables("任务单").Cols("模具开模申请单").Visible = False
    Tables("任务单").Cols("技术图纸").Visible = False
    Tables("任务单").Cols("任务说明").Visible = False
    Tables("任务单").Cols("过程记录").Visible = False
    e.Table.AutoSizeRow(e.Table.Current.Index)
    Tables("任务单").Cols("模具开模申请单").Visible = True
    Tables("任务单").Cols("技术图纸").Visible = True
    Tables("任务单").Cols("任务说明").Visible = True
    Tables("任务单").Cols("过程记录").Visible = True
End If

Dim t As Table = Tables("项目阶段")
If e.Table.Current IsNot Nothing Then
    t.Filter = "任务单编号 = \'" & e.Table.Current("任务单编号") & "\'"
Else
   t.Filter = "false"
End If

If Forms ("过程记录").opened Then

msgbox(1)
Dim t01 As Table = Tables("生产管理_Table01")
Dim t10 As Table = Tables("过程记录_Table10")
If t01.Current IsNot Nothing Then
    t10.Filter = "任务单编号 = \'" & t01.Current("任务单编号") & "\'"
Else
     t10.Filter = "false"
End If
msgbox(t10.Filter)
End If

--  作者：有点蓝
--  发布时间：2024/8/23 9:55:00
--
继续调试

msgbox("进入事件")
If e.Table.Current IsNot Nothing Then
    Tables("任务单").Cols("模具开模申请单").Visible = False
    Tables("任务单").Cols("技术图纸").Visible = False
    Tables("任务单").Cols("任务说明").Visible = False
    Tables("任务单").Cols("过程记录").Visible = False
    e.Table.AutoSizeRow(e.Table.Current.Index)
    Tables("任务单").Cols("模具开模申请单").Visible = True
    Tables("任务单").Cols("技术图纸").Visible = True
    Tables("任务单").Cols("任务说明").Visible = True
    Tables("任务单").Cols("过程记录").Visible = True
End If

msgbox(1)
Dim t As Table = Tables("项目阶段")
If e.Table.Current IsNot Nothing Then
    t.Filter = "任务单编号 = \'" & e.Table.Current("任务单编号") & "\'"
Else
   t.Filter = "false"
End If
msgbox("2--" & Forms ("过程记录").opened)
If Forms ("过程记录").opened Then
msgbox(3)
Dim t01 As Table = Tables("生产管理_Table01")
Dim t10 As Table = Tables("过程记录_Table10")
If t01.Current IsNot Nothing Then
    t10.Filter = "任务单编号 = \'" & t01.Current("任务单编号") & "\'"
Else
     t10.Filter = "false"
End If
msgbox(t10.Filter)
End If

--  作者：1234567
--  发布时间：2024/8/23 9:59:00
--

还是毫无反应