- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 关联列表的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53123)
-- 发布时间：2014/6/30 12:01:00
-- [求助] 关联列表的问题
我在项目事件的BeforeFilter中写有以下命令；当我某个窗口中有关联表的情况下：我在新增内容 或者 当本表内容与关联列表中没有相同内容时；项目都会弹出 “没有找到你要查找的内容”提示。我该怎么处理？
Dim count As Integer =
e.Table.Compute("count(_Identify)", e.Filter)
If count = 0 Then
Messagebox.show("没有找到你要查找的内容!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.cancel = True
End If
-- 发布时间：2014/6/30 12:14:00
--
你这种是特殊的情况。处理查询情况的时候，给全局变量赋值 vars("查询") = true
然后在代码里这样写
If vars("查询") = True Then
Dim count As Integer = e.Table.Compute("count(_Identify)", e.Filter)
If count = 0 Then
Messagebox.show("没有找到你要查找的内容!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.cancel = True
End If
vars("查询") False
End If
-- 发布时间：2014/6/30 12:24:00
--
全局变量 中 我该怎么写？ 谁来帮我处理一下这个问题？
此主题相关图片如下：360截图20140630122425375.jpg
-- 发布时间：2014/6/30 15:20:00
--
查询 Boolean False
然后，在查询按钮那里写 vars("查询") = true
-- 发布时间：2014/6/30 16:17:00
--
你这种是特殊的情况。处理查询情况的时候，给全局变量赋值 vars("查询") = true
然后在代码里这样写
If vars("查询") = True Then
Dim count As Integer = e.Table.Compute("count(_Identify)", e.Filter)
If count = 0 Then
Messagebox.show("没有找到你要查找的内容!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.cancel = True
End If
vars("查询") False
End If
此主题相关图片如下：360截图20140630161639890.jpg
-- 发布时间：2014/6/30 16:31:00
--
If vars("查询") = True Then
Dim count As Integer = e.Table.Compute("count(_Identify)", e.Filter)
If count = 0 Then
Messagebox.show("没有找到你要查找的内容!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.cancel = True
End If
vars("查询") = False
End If