以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]视图  (http://foxtable.com/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
--  
谢谢老师