- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 调用视图 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141220)
-- 发布时间：2019/9/24 15:50:00
-- 调用视图
Dim rgd As WinForm.RecordGrid =
e.Form.Controls("RecordGrid1")
rgd.Table =
Tables("员工")
rgd.Columns =
"编号|姓名|部门|职务|性别|尊称|出生日期|地址|家庭电话|办公电话" 这路想用视图直接调用
此主题相关图片如下：企业微信截图_20190924154833.png
rgd.Build()
-- 发布时间：2019/9/24 16:17:00
--
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("员工")
Tables("员工").OpenView("某视图")
Dim ste As String = ""
For Each c As Col In Tables("员工").Cols
If c.Visible = True
ste = ste & "|" & c.Name
End If
Next
rgd.Columns = ste.Trim("|")
rgd.Build()