谢谢大家,能把我看看吗?为什么我在点击按钮后 本是显示或隐藏企业档案表 但是为什么会切换到同按钮窗口绑定的表啊
感谢 感谢
能帮我改改吗 感谢
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(",") = "True" Then
Tables("企业档案").Rows(i).DataRow.Remove()
End If
End If
s = ""
Next
End If