以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用户管理定义组时出错求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90303)
--  作者：狐狸爸爸
--  发布时间：2016/9/9 14:10:00
--  

删除这个users表中的空行
--  作者：有点蓝
--  发布时间：2016/9/9 14:11:00
--  
测试没有问题，截图看看数据库的表结构
--  作者：有点蓝
--  发布时间：2016/9/10 10:06:00
--  
1、勾上显示详细信息看看
2、检查菜单全局事件的相关代码（可以输出全部代码，搜索Timers）
--  作者：有点蓝
--  发布时间：2016/9/10 10:25:00
--  
如果你看不懂这些代码是干嘛用的，就全部删除好了
--  作者：有点蓝
--  发布时间：2016/9/10 11:23:00
--  
用drawcell
--  作者：有点蓝
--  发布时间：2016/9/10 15:01:00
--  
Tables("授权表").Cols("表名").ComboList = String.Join("|",nms.ToArray)
--  作者：狐狸爸爸
--  发布时间：2016/9/11 10:49:00
--  

判断表达式列：

 

if e.DataCol.Expression  > "" then  \'这是表达式列

end if

 

判断数据类型：

http://www.foxtable.com/webhelp/scr/1356.htm

 

 

IsNumeric 判断该列是否是数值型
IsString 判断该列是否是字符串型
IsDate 判断该列是否是日期型
IsBoolean 判断该列是否是逻辑型
--  作者：狐狸爸爸
--  发布时间：2016/9/11 10:52:00
--  

回复14楼，我测试没有出错：

 

Dim nms As New List(Of String) \'申明一个集合变量
For  Each frm  As WinForm.Form  In Forms  \'遍历表名  
    nms.Add(frm.name)                   \'将表名加入集合
Next
For Each  nm  As   String In  nms
    Output.Show(nm)
Next

Tables("表A").Cols("第一列").ComboList = String.Join("|",nms.ToArray)

 

 

建议，不同的问题，分别发帖提问，不要全部凑凑在一个帖子。