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编辑过]
加好友 
发短信
Post By：2015/3/6 22:21:00 [只看该作者]
此主题相关图片如下：问题.png
