- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 隐藏和显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65001)
-- 发布时间：2015/3/6 22:21:00
-- 隐藏和显示
If e.Sender.Text = "显示" Then
e.Sender.Text = "隐藏"
CurrentTable.DataTable.LoadFilter = ""
CurrentTable.DataTable.Load()
ElseIf e.Sender.Text = "隐藏" Then
e.Sender.Text = "显示"
Dim s As String
For i As Integer = Tables("企业档案").Rows.Count - 1 To 0 Step - 1
For j As Integer = 0 To Tables("企业档案").Cols.Count - 1
If Tables("企业档案").Cols(j).Name = "企业_进度情况" Then
s + = Tables("企业档案").Text(i,j) & ","
End If
Next
If s > "" Then
If s.Trim(",") = "已丢弃" Then
Tables("企业档案").Rows(i).DataRow.Remove()
End If
End If
s = ""
Next
End If
能帮忙看看这个代码吗？怎么点击的时候所有的窗口都切换了呢！有没什么办法只是“企业档案”一个切换啊
点击上面的功能后为什么这个按钮里面的代码就无效呢
Dim Filter As String
With e.Form.Controls("TextBox9")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "基本信息_在职企业号 = " & .Value \'此处内容自行修改
End If
End With
If Filter > "" Then
DataTables("企业档案窗口_Table2").LoadFilter = Filter
DataTables("企业档案窗口_Table2").Load
End If
Forms("企业档案窗口").Controls("TabControl1").SelectedIndex = 0 \'点击后立刻显示TabControl的页面
感谢 感谢
[此贴子已经被作者于2015/3/6 22:25:09编辑过]
-- 发布时间：2015/3/7 8:39:00
--
上例子
-- 发布时间：2015/3/7 16:07:00
--
此主题相关图片如下：问题.png
此主题相关图片如下：问题2.png
不知道是不是那冲突了 感谢 感谢
感谢 感谢
[此贴子已经被作者于2015/3/7 16:17:18编辑过]
-- 发布时间：2015/3/7 16:19:00
--
感谢 感谢 不知道为什么不能一起发上来
[此贴子已经被作者于2015/3/7 16:21:15编辑过]
-- 发布时间：2015/3/7 16:20:00
--
1.隐藏显示窗口的表, 用 e.form.controls("Table1").visible=false
2.条件不对吧.
搞不定请把可运行的例子发上来
-- 发布时间：2015/3/7 16:27:00
--
感谢 感谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:工作计划系统.rar |
终于上传上来了
有劳大家了 感谢 感谢
[此贴子已经被作者于2015/3/7 16:27:32编辑过]
-- 发布时间：2015/3/7 16:33:00
--
刚才想如果把
TextBox5改成Label26可以吗？
应该怎么改啊 感谢 感谢
Dim Filter As String
With e.Form.Controls("TextBox5")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "绑定号 = \'" & .Value & "\'" \'此处内容自行修改
End If
End With
If Filter > "" Then
Tables("企业档案窗口_Table1").Filter = Filter
End If \'显示订单清单的列表
Forms("企业档案窗口").Controls("TabControl1").SelectedIndex = 4 \'点击后立刻显示TabControl的页面
-- 发布时间：2015/3/7 17:12:00
--
后面那个问题我解决了 感谢 感谢
只是能帮我看看切换的那个吗？
点击隐藏和先的时候 其它几个表也会跟着显示 可以把那个代码改为控制企业档案窗口吗？或者某一个表！
-- 发布时间：2015/3/8 11:07:00
--
以下是引用yangwenghd在2015/3/7 17:12:00的发言：
后面那个问题我解决了 感谢 感谢
后面那个问题我解决了 感谢 感谢
只是能帮我看看切换的那个吗？
点击隐藏和先的时候 其它几个表也会跟着显示 可以把那个代码改为控制企业档案窗口吗？或者某一个表！
CurrentTable 改成 具体的表，比如 Tables("企业档案")
-- 发布时间：2015/3/11 11:17:00
--
感谢 感谢