Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中复选组合框隐藏列问题


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

主题：窗口中复选组合框隐藏列问题
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		窗口中复选组合框隐藏列问题  发帖心情 Post By：2022/1/21 11:08:00 [只看该作者]

老师，请教一下，在窗口中加一个复选组合框和一个按钮，实现在复选组合框中任意选择列(单选或多选),选中列隐藏，请帮忙修改一下代码

Dim sn As WinForm.CheckedComboBox = e.Form.Controls("CheckedComboBox1")


Dim v As String = "第一列,第三列,第五列"    '
Dim ary() As String = v.Split(",")
For Each c As String In ary
    Tables("表A").Cols(c).Visible = False   ''True
Next
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/21 11:11:00 [只看该作者]

Dim v As String = sn.text

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		已解决  发帖心情 Post By：2022/1/21 11:22:00 [只看该作者]

感谢老师指导

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		求代码精简  发帖心情 Post By：2022/1/21 13:17:00 [只看该作者]

老师，下面这段统计代码没有问题，请教能不能精简

Dim s As WinForm.Label
s = e.Form.Controls("Label01")
Dim cn As Integer
cn = DataTables("专家库").Compute("Count(专家类型)", "专家类型 = '财务类'")
s.Text = cn

Dim s1 As WinForm.Label
s1 = e.Form.Controls("Label02")
Dim cn1 As Integer
cn1 = DataTables("专家库").Compute("Count(专家类型)", "专家类型 = '审计类'")
s1.Text = cn1

Dim s2 As WinForm.Label
s2 = e.Form.Controls("Label03")
Dim cn2 As Integer
cn2 = DataTables("专家库").Compute("Count(专家类型)", "专家类型 = '监理类'")
s2.Text = cn2

Dim s3 As WinForm.Label
s3 = e.Form.Controls("Label04")
Dim cn3 As Integer
cn3 = DataTables("专家库").Compute("Count(专家类型)", "专家类型 = '安全类'")
s3.Text = cn3

Dim s4 As WinForm.Label
s4 = e.Form.Controls("Label05")
Dim cn4 As Integer
cn4 = DataTables("专家库").Compute("Count(专家类型)", "专家类型 = '综合类'")
s4.Text = cn4

Dim s5 As WinForm.Label
s5 = e.Form.Controls("Label08")
Dim cn5 As Integer
cn5 = DataTables("专家库").Compute("Count(专家类型)", "专家类型 is not null")  
s5.Text = cn5
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/21 13:36:00 [只看该作者]

dim ssr() as string = {"财务类","审计类",...}
for i as integer = 0 to srr.length - 1 then
  dim cn as integer = DataTables("专家库").Compute("Count(专家类型)", "专家类型 = '" & ssr(i) & "'")
  e.Form.Controls("Label0" & (i+1)).Text = cn
end if
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		报错  发帖心情 Post By：2022/1/21 13:45:00 [只看该作者]

报“未知编译错误”

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/21 13:48:00 [只看该作者]

dim ssr() as string = {"财务类","审计类",.自己补完整..}
for i as integer = 0 to ssr.length - 1 then
 回到顶部
帅哥哟，离线，有人找我吗？
jhxb8821
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		报  发帖心情 Post By：2022/1/21 13:56:00 [只看该作者]

Dim ssr() As String = {"财务类","审计类","监理类","安全类","综合类"}
For i As Integer = 0 To ssr.length - 1 Then
  Dim cn As Integer = DataTables("专家库").Compute("Count(专家类型)", "专家类型 = '" & ssr(i) & "'")
  e.Form.Controls("Label0" & (i+1)).Text = cn
End If
已改过，还是报错
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107879 积分：548758 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/21 14:02:00 [只看该作者]

把项目文件复制到其它目录打开，注意文件路径和文件名称不能有括号等特殊字符。然后打开项目看提示什么具体错误

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


加好友 发短信
等级：三尾狐 帖子：707 积分：5039 威望：0 精华：0 注册：2016/4/15 22:24:00 		出错  发帖心情 Post By：2022/1/21 14:12:00 [只看该作者]


此主题相关图片如下：1.png
按此在新窗口浏览图片

先出错For 应以next结尾，修改后出现上面错误
[此贴子已经被作者于2022/1/21 14:14:56编辑过]
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询