Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]增加表


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

主题：[求助]增加表
帅哥哟，离线，有人找我吗？
江南小城
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		[求助]增加表  发帖心情 Post By：2016/8/29 13:24:00 [只看该作者]


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

老师，下面是你发的福利，我要在基础表中增加一列来设置列的属性。

If DataTables("基础设置").GetComboListString("列类型").Contains("10") Then
    MessageBox.Show("sorry 高精度小数型暂时不可用!")
    Return
End If
DataTables("基础设置").Save
Dim Arys As List(Of String()) = DataTables("基础设置").GetUniqueValues("[表名] = '" & Name & "'","列名","列类型","字符长度")
Dim Builder As New ADOXBuilder
Builder.Open()
Dim tbl As ADOXTable = Builder.NewTable(Name)
For Each Ary As String() In Arys
    If Ary(1) = 0 Then
        tbl.AddColumn(Ary(0),Ary(1),Ary(2))
    Else
        tbl.AddColumn(Ary(0),Ary(1))
    End If
Next
Builder.AddTable(tbl)
Builder.Close()
syscmd.Project.Open(ProjectFile)
MainTable = Tables(Name)
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/29 14:42:00 [只看该作者]

 这段代码，不能设置列属性。如果要设置，必须在生成以后，用代码设置，而且设置的是临时行的。

 

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

 

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

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/29 14:45:00 [只看该作者]

那我不会了。

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


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/29 17:05:00 [只看该作者]

老师，小按钮定位不住。我想直接点击单元格打开网页。



图片点击可在新窗口打开查看此主题相关图片如下：图像 5.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/8/29 17:36:00 [只看该作者]

 测试了一下，好像没办法处理。

 

 你改成双击操作，或者列宽设置小一些吧。
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/29 20:32:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：图像 7.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/30 8:46:00 [只看该作者]

以下是引用江南小城在2016/8/29 20:32:00的发言：

图片点击可在新窗口打开查看此主题相关图片如下：图像 7.png
图片点击可在新窗口打开查看
老师好
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/30 10:22:00 [只看该作者]

CellButtonClick事件，


If e.Col.Name = "地址" AndAlso Forms("窗口2").Opened Then
    e.Cancel = True
    Dim web As WinForm.WebBrowser = Forms("窗口2").Controls("WebBrowser1")
    web.Address = e.Row(e.Col.Name)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
江南小城
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1005 积分：5955 威望：0 精华：0 注册：2015/6/18 5:15:00 		  发帖心情 Post By：2016/8/30 11:09:00 [只看该作者]


老师，又要烦你了

图片点击可在新窗口打开查看此主题相关图片如下：图像 2.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/8/30 11:37:00 [只看该作者]


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