- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]增加表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89758)
-- 发布时间：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)
-- 发布时间：2016/8/29 14:42:00
--
这段代码，不能设置列属性。如果要设置，必须在生成以后，用代码设置，而且设置的是临时行的。
http://www.foxtable.com/webhelp/scr/1356.htm
http://www.foxtable.com/webhelp/scr/1375.htm
-- 发布时间：2016/8/29 14:45:00
--
那我不会了。
-- 发布时间：2016/8/29 17:05:00
--
老师，小按钮定位不住。我想直接点击单元格打开网页。
此主题相关图片如下：图像 5.png
-- 发布时间：2016/8/29 17:36:00
--
测试了一下，好像没办法处理。
你改成双击操作，或者列宽设置小一些吧。
-- 发布时间：2016/8/29 20:32:00
--
此主题相关图片如下：图像 7.png
-- 发布时间：2016/8/30 8:46:00
--
以下是引用江南小城在2016/8/29 20:32:00的发言：
此主题相关图片如下：图像 7.png
此主题相关图片如下：图像 7.png老师好
-- 发布时间：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
-- 发布时间：2016/8/30 11:09:00
--
老师，又要烦你了
此主题相关图片如下：图像 2.png
-- 发布时间：2016/8/30 11:37:00
--
使用快捷菜单：http://www.foxtable.com/webhelp/scr/1076.htm