以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 增加列命令  (http://foxtable.net/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编辑过]