- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教，动态建表遇到拦路虎 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136716)
-- 发布时间：2019/6/19 18:22:00
-- 请教，动态建表遇到拦路虎
向老师高手请教：
下图界面中，让用户自建表及其字段和数据类型，
TextBox1 是自建表名
Table1 是自建表的字段
用户在 Table1 控件中逐行增加字段名和数据类型
点按钮提交后，程序遍历 Table1 控件，用以下代码建表，
tbl = Builder.NewTable(Forms("自建表").Controls("TextBox1").value) \'自建表名
For Each r As Row In Tables("自建表字段").Rows
tbl.AddColumn(r("字段" , r("数据类型"), r("长度"),)
Next
Builder.AddTable(tbl) \'增加表
但是报如下错误：
编译错误:没有为“Public Sub AddColumn(Name As String, DataType As ADOXType, [Length As Integer = 16])”的参数“DataType”指定参数。
错误代码：tbl.AddColumn(r("著录项" , r("数据类型"), r("长度"),)
请教，这个需求该怎么做更好些呢？谢谢
[此贴子已经被作者于2019/6/19 18:23:10编辑过]
-- 发布时间：2019/6/19 18:39:00
--
必须一个一个判断，如
Select Case dr1("列类型")
Case "字符型"
Case "日期型"
Case "逻辑型"
End Select
[此贴子已经被作者于2019/6/19 18:39:28编辑过]
-- 发布时间：2019/6/19 18:40:00
--
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=136565
-- 发布时间：2019/6/19 20:21:00
--
感谢感谢