Foxtable(狐表)用户栏目专家坐堂 → 代码切换错误


  共有4642人关注过本帖平板打印复制链接

主题:代码切换错误

帅哥哟,离线,有人找我吗?
yangwenghd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2701 积分:17999 威望:0 精华:0 注册:2013/4/9 10:41:00
代码切换错误  发帖心情 Post By:2014/11/29 21:33: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(",") = "True" Then
                Tables("企业档案").Rows(i).DataRow.Remove()
            End If
        End If
        s = ""
    Next
End If

 回到顶部
总数 33 1 2 3 4 下一页