专家坐堂-[求助] 增加列命令Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 增加列命令  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63073)

--  作者：wumingrong1
--  发布时间：2015/1/13 15:01:00
--  [求助] 增加列命令
如果我的项目中已经有一个外部数据源为“A”的数据表“功率表”；我想有一个按钮实现在该表中新增一列，该列的名称为某一个日期控件的日期；我的命令该怎么写？

1、点击【新增列】时，在表中新增一个列名为【日期20150113】的列

2、点击【光功率对比】时，【对比光功率】=【日期20150113】-【日期20150101】

此主题相关图片如下：360截图20150113150846203.jpg

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目14.foxdb

[此贴子已经被作者于2015-1-13 15:09:21编辑过]

--  作者：有点甜
--  发布时间：2015/1/13 15:03:00
--

http://www.foxtable.com/help/topics/2122.htm

--  作者：Bin
--  发布时间：2015/1/13 15:03:00
--
http://www.foxtable.com/help/topics/2122.htm

--  作者：wumingrong1
--  发布时间：2015/1/13 15:56:00
--

【新增列】命令如下：
Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")

.AddColumn(" 日期"& e.Form.Controls("新增日期").Text &" " ,ADOXType.String, 20) \'增加字符列,长度为20

End With
Builder.Close() \'关闭ADOXBuilder

Syscmd.Project.Open(ProjectFile)

提示错误
此主题相关图片如下：360截图20150113155805828.jpg

--  作者：Bin
--  发布时间：2015/1/13 16:01:00
--
错误原因已经明确弹出来提示给你看了啊

--  作者：Bin
--  发布时间：2015/1/13 16:02:00
--
列名是不可以用数字开头,以及包含特殊字符的.

列标题可以随意设置.

--  作者：wumingrong1
--  发布时间：2015/1/13 16:09:00
--

如何把【新增日期】控件的日期“2015-01-13”格式改为“20150113”？

Dim Builder As New ADOXBuilder
Builder.Open() \'打开ADOXBuilder
With Builder.Tables("表A")

.AddColumn("日期"& e.Form.Controls("新增日期").Text &"" ,ADOXType.String, 20) \'增加字符列,长度为20

End With
Builder.Close() \'关闭ADOXBuilder

Syscmd.Project.Open(ProjectFile)

此主题相关图片如下：360截图20150113161101109.jpg

[此贴子已经被作者于2015-1-13 16:09:33编辑过]

--  作者：Bin
--  发布时间：2015/1/13 16:11:00
--
.AddColumn("日期"& format(e.Form.Controls("新增日期").Text,"yyyyMMdd") &"" ,ADOXType.String, 20) \'增加字符列,长度为20

--  作者：有点甜
--  发布时间：2015/1/13 16:11:00
--
.AddColumn("日期" & Format(cdate(e.Form.Controls("新增日期").Text), "yyyyMMdd"), ADOXType.String, 20) \'增加字符列,长度为20

--  作者：wumingrong1
--  发布时间：2015/1/13 16:48:00
--

此主题相关图片如下：360截图20150113164918812.jpg

这是什么意思？是不是我的表格是连接服务器SQL的表的问题？
我这个命令该怎么改？
Dim Builder As New ADOXBuilder Builder.Open() \'打开ADOXBuilder With
Builder.Tables("表A")
.AddColumn("日期" & Format(cdate(e.Form.Controls("新增日期").Text), "yyyyMMdd"), ADOXType.String, 20) \'增加字符列,长度为20
End With Builder.Close() \'关闭ADOXBuilder
Syscmd.Project.Open(ProjectFile)

[此贴子已经被作者于2015-1-13 16:49:37编辑过]