[求助]视图 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，能保存成这样的视图格式吗编号,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

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

s = s.Trim("|")

Output.Show(s)

老师，窗口表筛选和排列后，通过保存按钮保存成下面视图格式"编号，50|日期，120|年，40"然后保存到视图表中，老师的代码不能理解。

都是很基础的代码，有什么看不懂的

……

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

s = s.Trim("|")

Tables("视图").current("视图属性") = s

主题：[求助]视图