- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 窗口中复选组合框隐藏列问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=174567)
-- 发布时间：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
-- 发布时间：2022/1/21 11:11:00
--
Dim v As String = sn.text
-- 发布时间：2022/1/21 11:22:00
-- 已解决
感谢老师指导
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2022/1/21 13:45:00
-- 报错
报“未知编译错误”
-- 发布时间：2022/1/21 13:48:00
--
dim ssr() as string = {"财务类","审计类",.自己补完整..} for i as integer = 0 to ssr.length - 1 then |
-- 发布时间：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
已改过，还是报错
-- 发布时间：2022/1/21 14:02:00
--
把项目文件复制到其它目录打开，注意文件路径和文件名称不能有括号等特殊字符。然后打开项目看提示什么具体错误
-- 发布时间：2022/1/21 14:12:00
-- 出错
此主题相关图片如下：1.png
先出错For 应以next结尾，修改后出现上面错误
[此贴子已经被作者于2022/1/21 14:14:56编辑过]