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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  视图保存判断求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115654)

--  作者：yifan3429
--  发布时间：2018/3/11 16:17:00
--  视图保存判断求助

Dim str As String = "常规"
If InputValue(str, "保存", "请输入视图名字") Then
Dim t As Table = Tables("视图")
Dim t1 As Table = e.Form.controls("table1").Table
Dim nr As Row = t.AddNew
nr("表名") = t1.DataTable.name
nr("列设置") = t1.getColVisibleWidth
nr("视图名称") = str
nr("筛选条件") = t1.filter
End If

保存时如果发现视图名称存在就清空老的重新写入新的参数

--  作者：有点甜
--  发布时间：2018/3/11 19:54:00
--

Dim str As String = "常规"
If InputValue(str, "保存", "请输入视图名字") Then
    Dim t As Table = Tables("视图")
    Dim t1 As Table = e.Form.controls("table1").Table
    Dim i As Integer = t.FindRow("视图名称 = \'" & str & "\'")
    Dim nr As Row
    If i >= 0 Then
        nr = t.rows(i)
    Else
        nr = t.AddNew
    End If
    nr("表名") = t1.DataTable.name
    nr("列设置") = t1.getColVisibleWidth
    nr("视图名称") = str
    nr("筛选条件") = t1.filter
End If