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
加好友 
发短信
Post By：2018/3/11 19:54:00 [显示全部帖子]
