以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表行中显示所有用户名及表名的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103294)

--  作者:白国栋
--  发布时间:2017/7/5 8:46:00
--  表行中显示所有用户名及表名的问题
可视化授权里的用户名、表名都是在表属性里手动输入的,增加用户及增加表的时候都不显示到授权表的行里。
窗口时候用这个代码就能显示,表里就不会用呢??求老师们解决一下!

窗口AfterLoad事件


Dim Name As String
For Each dt As datatable In DataTables
    Name = Name & "|" & dt.Name
Next
e.Form.Controls("ComboBox1").ComboList = Name



--  作者:白国栋
--  发布时间:2017/7/5 8:48:00
--  
我的问题的图片在这里。
图片点击可在新窗口打开查看此主题相关图片如下:2017731510626557.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2017731510696414.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/7/5 8:57:00
--  

prepareEdit事件

 

If e.Col.Name = "表名" Then
    Dim Name As String
    For Each dt As DataTable In DataTables
        Name = Name & "|" & dt.Name
    Next
    e.Col.ComboList = Name
End If


--  作者:白国栋
--  发布时间:2017/7/5 10:50:00
--  
用户名的话怎么弄呢?
--  作者:有点甜
--  发布时间:2017/7/5 10:55:00
--  
If e.Col.Name = "用户名" Then
    Dim str As String = ""
    For Each user As UserInfo In users
        str &= "|" & user.Name
    Next
    e.Col.ComboList = str
End If

--  作者:白国栋
--  发布时间:2017/7/5 11:23:00
--  
谢谢!老师!!