Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]组合框


  共有169人关注过本帖树形打印复制链接

主题：[求助]组合框
帅哥哟，离线，有人找我吗？
苏州老街
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：779 积分：4960 威望：0 精华：0 注册：2016/10/19 16:45:00 		[求助]组合框  发帖心情 Post By：2025/2/15 2:52:00 [显示全部帖子]

老师，点击组合框字段后”视图管理_Table1”表全部行被隐藏了只剩行号显示。


Tables("视图管理_Table1").StopRedraw
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
cmd.CommandText = "Select * Fr  om {视图} WHERE 视图名 = '" & e.sender.value & "'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
Tables("视图管理_Table1").SetColVisibleWidth(dr("视图属性")) '恢复列位置和宽度

For Each cl As Col In Tables("视图管理_Table1").Cols
    If cl.Width = 0 Then
        cl.Visible = False
    End If
Next
Tables("视图管理_Table1").ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：779 积分：4960 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2025/2/15 9:18:00 [显示全部帖子]

老师，我想点击文本框字段后进行筛选窗口表数据。

 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：779 积分：4960 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2025/2/15 18:04:00 [显示全部帖子]

老师，我把代码摆在click事件处理没有用

Tables("视图管理_Table1").StopRedraw
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
cmd.CommandText = "Select * Fr om {视图} WHERE 视图名 = '" & e.sender.value & "'"
dt = cmd.ExecuteReader
dr = dt.DataRows(0)
Tables("视图管理_Table1").SetColVisibleWidth(dr("视图属性")) '恢复列位置和宽度

For Each cl As Col In Tables("视图管理_Table1").Cols
    If cl.Width = 0 Then
       cl.Visible = False
  End If
Next
Tables("视图管理_Table1").ResumeRedraw
 回到顶部
帅哥哟，离线，有人找我吗？
苏州老街
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：779 积分：4960 威望：0 精华：0 注册：2016/10/19 16:45:00 		  发帖心情 Post By：2025/2/17 7:34:00 [显示全部帖子]

谢谢老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询