- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 查询窗口命令 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=45638)
-- 发布时间：2014/2/7 12:14:00
-- [求助] 查询窗口命令
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/2/7 12:33:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/2/7 15:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1.table |
麻烦看一下这个文件、其中 “查询”按钮 和 “撤销筛选” 按钮都有问题
-- 发布时间：2014/2/7 15:54:00
--
这两个按钮的代码都没问题
是其他事件存在问题，你检查一下
-- 发布时间：2014/2/7 19:00:00
--
为什么查询按钮的公式会和表 BeforeSelChange 事件的以下命令发生冲突呢？
我以下的公式目的是在变换行之前确认当前行是否做了修改未保存、如果修改未保存即进行提醒；有没有别的方法实现同样的功能而不与查询按钮公式产生冲突？
If CurrentTable.Current.DataRow.RowState <> DataRowState.Unchanged Then \'如果当前行已经修改过
e.Cancel = True
MessageBox.Show("请先保存对当前行的修改", "提示", MessageBoxButtons.OK, MessageBoxIcon.Question)
Else
End If
-- 发布时间：2014/2/7 19:19:00
--
测试了一下，你将查询按钮的代码改成这样
Dim l1 As WinForm.ComboBox = e.Form.Controls("机房名称")
Dim l2 As WinForm.ComboBox = e.Form.Controls("光缆名称")
Dim s As String
Dim ss1() As String = {l1.Value,l2.Value}
Dim ss2() As String = {l1.Name,l2.Name}
For i As Integer = 0 To ss1.Length-1
If ss1(i) > ""
s += " and " & ss2(i) & "=\'" & ss1(i) & "\'"
End If
Next
SystemReady = False
Tables("光缆台帐表").Filter = s.TrimStart(" ","a","n","d")
SystemReady = True
-- 发布时间：2014/2/8 10:36:00
--
1、查询按钮的可以啦，但是“撤销筛选”按钮还是不行；
2、还有就是当 “机房名称”和“光缆名称”都没有输入内容时，按下“查询”按钮 希望弹出提示”请输入查询条件“ 而不是弹出系统的提示；请问该怎么设置？
-- 发布时间：2014/2/8 10:43:00
--
1.撤销筛选 设置Filter=""
2.判断一下即可
if l1.text="" Orelse l2.text="" then
messagebox.show("请输入查询条件!")
else
end if
-- 发布时间：2014/2/8 12:08:00
--
为什么在未填写查询条件内容 按下”查询“按钮、弹出一个系统提示后；整个系统都无法进行操作了！！！
此主题相关图片如下：360截图20140208120731640.jpg
-- 发布时间：2014/2/8 12:29:00
--
建议您用这个方法：
http://www.foxtable.com/help/topics/1485.htm
先找出是哪一行出错，然后分析原因，搞不定，贴出代码，并告诉我们运行到哪一行出错，以及错误提示。