| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]我有表A存放列名,类型,长度,标题,表达式,如何用代码产生 表B? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118899) |
| -- 作者：tennis -- 发布时间：2018/5/13 16:42:00 -- [求助]我有表A存放列名,类型,长度,标题,表达式,如何用代码产生 表B? 如题. |
| -- 作者：有点甜 -- 发布时间：2018/5/13 17:26:00 -- 参考
http://www.foxtable.com/webhelp/scr/2122.htm
|
| -- 作者：tennis -- 发布时间：2018/5/13 17:30:00 -- 标题,如何在产生表时就加入? 有代码直接更新表中的 标题吗? |
| -- 作者：2900819580 -- 发布时间：2018/5/13 17:34:00 -- 老师，如何从r("类型")的数值(举例是String) 再赋值给于Gettype（String）或 ADOXType.String
Dim dt As DataTable = DataTables("表C") For Each r As Row In Tables("表名").Rows If r.IsNull("表达式") Then ADOXType.String |
| -- 作者：有点甜 -- 发布时间：2018/5/13 17:49:00 -- 要一个一个判断，如
If r("类型") = "String" then
ElseIf r("类型") = "Integer" Then
ElseIf
Else
End If |
| -- 作者：tennis -- 发布时间：2018/5/13 18:51:00 -- 请问标题? |
| -- 作者：有点甜 -- 发布时间：2018/5/13 18:54:00 -- If r("类型") = "String" then dt.DataCols.Add(r("列名"),Gettype(String),r("长度")) ElseIf r("类型") = "Integer" Then dt.DataCols.Add(r("列名"),Gettype(Integer)) ElseIf
Else
End If [此贴子已经被作者于2018/5/13 18:53:58编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/5/13 18:55:00 -- 以下是引用tennis在2018/5/13 18:51:00的发言：
请问标题?
动态添加列，无法设置表达式列、也无法设置标题的。 [此贴子已经被作者于2018/5/13 18:54:41编辑过]
|
| -- 作者：tennis -- 发布时间：2018/5/14 7:22:00 -- WHY? 既然列名,类型,长度都可以用代码产生,为何标题,表达式不行一定要用最原始的查看表结构或更改列作业? |
| -- 作者：有点甜 -- 发布时间：2018/5/14 8:47:00 -- 以下是引用tennis在2018/5/14 7:22:00的发言：
WHY? 既然列名,类型,长度都可以用代码产生,为何标题,表达式不行一定要用最原始的查看表结构或更改列作业?
修改表结构是直接修改数据库的表信息；标题、表达式列等是存放在foxtable内部的，不开放，无法处理这个。
如果要做标题、表达式，你另外弄一个列存放，再在afterOpenProject的时候，动态修改
http://www.foxtable.com/webhelp/scr/1275.htm
http://www.foxtable.com/webhelp/scr/1428.htm
|