Foxtable(狐表)用户栏目专家坐堂 → 窗口打开事件的问题


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

主题:窗口打开事件的问题

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


加好友 发短信
等级:幼狐 帖子:57 积分:442 威望:0 精华:0 注册:2020/11/4 22:15:00
窗口打开事件的问题  发帖心情 Post By:2020/12/19 18:47:00 [只看该作者]

需求是:窗口打开后,只显示库存副表的字段“安全情况 = "超安全" Or  安全情况 = "低安全"。
1,窗口打开事件

Dim Filter As String
Filter ="安全情况='超安全' Or '低安全'"
DataTables("表达式库存").LoadFilter = Filter        
DataTables("表达式库存").Load()

上面显示全部,不是需求,如何实现需求”只显示库存的字段“安全情况 = "超安全" Or  安全情况 = "低安全"“?。

2,窗口打开事件想用SQL语句,不能用

'Selec * From {表达式库存} Where  安全情况 = "超安全" Or  安全情况 = "低安全"

'Dim Value As String = "安全情况 "
'Dim Result As String
'Selec Case Value
    'Case "安全情况 "
        'Result = "超安全"
   
    'Case Else
        'Result = "低安全"
'End Selec

2方法,错,如何改才能实现,在窗口打开后副表,只显示库存的字段“安全情况 = "超安全" Or  安全情况 = "低安全"“?



 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:63088 积分:319819 威望:0 精华:8 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/20 20:04:00 [只看该作者]

Filter ="安全情况='超安全' Or 安全情况='低安全'"

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


加好友 发短信
等级:幼狐 帖子:57 积分:442 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2020/12/21 16:07:00 [只看该作者]

老师,
1,执行上面代码,正表和副表的显示都一样,
2,我的需求是,正表显示全部,副表按上面代码条件显示,只显"安全情况='超安全' Or 安全情况='低安全'",
3,正表和副表设计在不同窗口上,是用表达式统计库存的例子。

如何实现正表显示全部,副表按上面代码条件显示,只显"安全情况='超安全' Or 安全情况='低安全'"?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


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


加好友 发短信
等级:幼狐 帖子:57 积分:442 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2020/12/22 22:56:00 [只看该作者]

Dim Filter As String
'Tables("安全库存_Table1").Filter ="安全情况='超安全' Or 安全情况='低安全'"
Filter ="安全情况='超安全' Or 安全情况='低安全'"
DataTables("安全库存_Table1").LoadFilter = Filter          
DataTables("安全库存_Table1").Load()

报错下面内容:

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:窗口,安全库存,AfterLoad
详细错误信息:
未将对象引用设置到对象的实例。

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Tables("安全库存_Table1").datatable.LoadFilter = Filter          
Tables("安全库存_Table1").datatable.Load()

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


加好友 发短信
等级:幼狐 帖子:57 积分:442 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2020/12/23 11:11:00 [只看该作者]

老师,上面是在另一窗口上用副表形式执行,能按设定条件显示,但有一问题,在另一个窗口上用正表显示,正常情况正表不受副表的影响,在这里能受到影响,这里正表显示与副表一样,副表影响了正表,是不是以下面代码有关,如何改?需求是副表按上面代码的条件显示,正表显示全部

Dim dr As DataRow = DataTables("表达式库存").Find("安全情况 = '超安全' Or 安全情况='低安全'")
If dr IsNot Nothing Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("表达式库存").Filter = ("安全情况 = '超安全' Or 安全情况='低安全'")
    
    Forms("安全库存").Open()        
End If

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

如果要改标题名称,正表肯定受副表的影响,因为改标题是datatable的功能,不是table的功能,而副本和主表都是同一个datatable。

如果要不受影响,把副本改为sqltable使用

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


加好友 发短信
等级:幼狐 帖子:57 积分:442 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2020/12/23 11:43:00 [只看该作者]

老师,我最早用副本用sqltable,加载SQL语语句下面,效果一样都影响,刚才也改副本用sqltable测试一下,还是一样,不知道什么原因,我正表重新连接表,再测试还一样

'Selec * From {表达式库存} Where  安全情况 = "超安全" Or  安全情况 = "低安全"

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


加好友 发短信
等级:幼狐 帖子:57 积分:442 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2020/12/23 11:45:00 [只看该作者]

上面不行,能否用正表窗口打开后或其上“刷新”按键来强制刷新显示全部数据,这个要怎么实现?

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