Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]利用窗口创建表


  共有11857人关注过本帖树形打印复制链接

主题：[分享]利用窗口创建表
帅哥哟，离线，有人找我吗？
blackzhu
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		[分享]利用窗口创建表  发帖心情 Post By：2011/4/19 21:00:00 [显示全部帖子]

  经过狐爸的引导,终于在C版的示例的基础上成功的改成了一个利用窗口生成表的例子.现发上来分享一下.

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:动态创建表布版.table
[此贴子已经被作者于2011-4-20 16:59:04编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 7:10:00 [显示全部帖子]

我看看.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 7:25:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-4-19 21:49:00的发言：

加上黑体的这行代码，你就知道原因了:

For Each dr As DataRow In DataTables("基础设置").DataRows
    messagebox.show(dr("列类型"))
    If dr("表名") = Name Then
        If dr("列类型") = 0 Then
            tbl.AddColumn(dr("列名"),dr("列类型"),dr("字符长度"))
        Else
            tbl.AddColumn(dr("列名"),dr("列类型"))
        End If
    End If
Next

 

列类型不是用“字符型”、“日期型”这种字符表示的，而是用ADOXType.String,ADOXType.DateTime这种形式表示的。





   不对呀,原来的例子是可以做的呀!你看C版的例子.我只是加了输入窗口框而已.


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:动态创建表.table
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 7:49:00 [显示全部帖子]

我仔细看了一下,因为C版的例子的表输入列类型,在列属性中用的是数据字典,但是窗口中ComboBox2中是不能用数据字典的,只能用项目列表.我不知道是怎么回事?将表的列属性也改成项目列表也是不能生成表,只有用数据字典才有用.我来改成下拉窗口试试看.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 7:50:00 [显示全部帖子]

以下是引用狐狸爸爸在2011-4-20 7:34:00的发言：

人家的列类型设置了数据字典，已经将字符型转换为每个列类型对应的整数。

你看看列属性就明白了的。


我已经看到了!
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 8:17:00 [显示全部帖子]

ComboBox2不能使用数据字典,如果像今日这种情况怎么办呢?

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 11:11:00 [显示全部帖子]

收藏一下,但是C版的例子简单的多.

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 12:36:00 [显示全部帖子]

还是没有做出来!

 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 12:37:00 [显示全部帖子]


DataTables("基础设置").Save
Dim Builder As New ADOXBuilder
Builder.Open()
Dim tbl As ADOXTable = Builder.NewTable(Name)
For Each dr As DataRow In DataTables("基础设置").DataRows
    If dr("表名") = Name Then
        If dr("列类型") = 0 Then
            tbl.AddColumn(dr("列名"),dr("列类型"),dr("字符长度"))
        Else
            tbl.AddColumn(dr("列名"),dr("列类型"))
        End If
    End If
Next
Builder.AddTable(tbl)
Builder.Close()
syscmd.Project.Open(ProjectFile)
MainTable = Tables(Name)


这段代码和你的转换怎么融合?
 回到顶部
帅哥哟，离线，有人找我吗？
blackzhu
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：狐仙 帖子：9876 积分：57613 威望：0 精华：15 注册：2008/9/1 9:45:00 		  发帖心情 Post By：2011/4/20 14:21:00 [显示全部帖子]

慢慢的我有点眉目了.

 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 7 次数据查询