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


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

主题:CurrentChanged

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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/8/23 9:29:00 [只看该作者]

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


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


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

说明窗口没有打开

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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/8/23 9:41:00 [只看该作者]

实际窗口是打开的


图片点击可在新窗口打开查看此主题相关图片如下:6.png
图片点击可在新窗口打开查看

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


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

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

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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望: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

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


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:827 积分:6488 威望:0 精华:0 注册:2013/2/18 17:46:00
  发帖心情 Post By:2024/8/23 9:59:00 [只看该作者]

还是毫无反应


 回到顶部
总数 12 1 2 下一页