以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]视图  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190213)

--  作者：江南小镇 --  发布时间：2024/1/24 8:37:00 --  [求助]视图 老师好，能保存成这样的视图格式吗    编号,50|日期,120|年,40|季,30|月,30|项目,60|项目ID,80 下面是保存视图的代码 Dim bm As String = GetConfigValue("bm","") If e.Form.controls("combobox1").value = Nothing Then     MessageBox.Show("没有输入视图名称,请命名!")     Return End If Dim cmd As New SQLCommand cmd.C cmd.CommandText = "Select DISTINCT Count(表名) Fr  om {视图} WHERE 表名 = \'" & bm & "\' and 视图名 = \'" & e.Form.controls("combobox1").value & "\'" If cmd.ExecuteScalar() > 0 Then     MessageBox.Show("该视图名已经存在,请重新命名!")     Return End If Tables("视图").addnew() \'Tables("视图").current("工号") = dr Tables("视图").current("表名") = bm Dim s As String = CurrentTable.GetColVisibleWidth \'获得列位置和宽度 Tables("视图").current("视图名") = e.Form.controls("combobox1").value Tables("视图").current("视图属性") = s DataTables("视图").save() If DataTables.Contains("视图") Then     DataTables.Delete("视图") End If e.Form.close

--  作者：有点蓝 --  发布时间：2024/1/24 8:47:00 --   Dim s As String = "编号|50|日期|120|年|40|季|30|月|30|项目|60|项目ID|80" Dim ss() As String = s.Split("|") s = "" For i As Integer = 0 To ss.Length - 1     If i Mod 2 = 0 Then         s = s & "|" & ss(i)     Else         s = s & "," & ss(i)     End If  Next s = s.Trim("|") Output.Show(s)

--  作者：江南小镇 --  发布时间：2024/1/24 10:10:00 --   老师，窗口表筛选和排列后，通过保存按钮保存成下面视图格式"编号，50|日期，120|年，40"然后保存到视图表中，老师的代码不能理解。

--  作者：有点蓝 --  发布时间：2024/1/24 10:21:00 --   都是很基础的代码，有什么看不懂的 …… Dim s As String = CurrentTable.GetColVisibleWidth Dim ss() As String = s.Split("|") s = "" For i As Integer = 0 To ss.Length - 1     If i Mod 2 = 0 Then         s = s & "|" & ss(i)     Else         s = s & "," & ss(i)     End If  Next s = s.Trim("|") Tables("视图").current("视图属性") = s

--  作者：江南小镇 --  发布时间：2024/1/24 11:03:00 --   谢谢老师