| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]组合框 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=195001) |
| -- 作者：苏州老街 -- 发布时间：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
|
| -- 作者：有点蓝 -- 发布时间：2025/2/15 8:49:00 -- 调试看看 msgbox(dr("视图属性")) 另外for循环去掉，没有任何用处
|
| -- 作者：苏州老街 -- 发布时间：2025/2/15 9:18:00 -- 老师，我想点击文本框字段后进行筛选窗口表数据。 |
| -- 作者：有点蓝 -- 发布时间：2025/2/15 9:41:00 -- 点击到click事件处理 |
| -- 作者：苏州老街 -- 发布时间：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
|
| -- 作者：有点蓝 -- 发布时间：2025/2/16 20:10:00 -- 上面代码没有一句是和筛选有关的，根据窗口控件值做筛选请认真看这个帮助：http://www.foxtable.com/webhelp/topics/1058.htm 文本框valuechanged事件 Dim Filter As String With e.sender If .Value IsNot Nothing Then Filter = "某某筛选列 = \'" & .Value & "\'" End If End With Tables("视图管理_Table1").Filter = Filter
[此贴子已经被作者于2025/2/16 20:10:28编辑过]
|
| -- 作者：苏州老街 -- 发布时间：2025/2/17 7:34:00 -- 谢谢老师 |