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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → CurrentChanged

共有1788人关注过本帖树形打印复制链接主题：CurrentChanged

1234567

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：6432 威望：0 精华：0 注册：2013/2/18 17:46:00

CurrentChanged 发帖心情

Post By：2024/8/23 9:06:00 [只看该作者]

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

为什么不能筛选？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110856 积分：564224 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：6432 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/8/23 9:29:00 [只看该作者]

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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110856 积分：564224 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/23 9:38:00 [只看该作者]

说明窗口没有打开

1234567

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：6432 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/8/23 9:41:00 [只看该作者]

实际窗口是打开的

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

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110856 积分：564224 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/23 9:44:00 [只看该作者]

那不可能没有提示。事件还有其它代码？

1234567

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：6432 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：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

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：6432 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：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

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110856 积分：564224 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/8/23 9:55:00 [只看该作者]

继续调试

msgbox("进入事件")

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

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：822 积分：6432 威望：0 精华：0 注册：2013/2/18 17:46:00

Post By：2024/8/23 9:59:00 [只看该作者]

还是毫无反应

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：CurrentChanged