Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]希望在表后面增加以日期为列名的列


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

主题：[求助]希望在表后面增加以日期为列名的列
帅哥哟，离线，有人找我吗？
81538475
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1287 积分：10368 威望：0 精华：1 注册：2018/1/20 12:40:00 		[求助]希望在表后面增加以日期为列名的列  发帖心情 Post By：2018/8/3 10:39:00 [显示全部帖子]

希望在表A后面增加这些列。报错了。

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


Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
Dim StartDate As Date = "2018-01-01"
Dim EndDate As Date = "2018-12-31"
Dim dt As Date = StartDate
'Dim Builder As New DataTableBuilder("统计")
Do
    Dim nm As String = "sp" & dt.Year & "年" &  dt.Month & "月_" & dt.Day 
  msgbox(nm)
     Builder.Tables("表A").AddColumn(nm,ADOXType.String,32)
    dt = dt.Adddays(1)
    If dt > Enddate Then
            Exit Do
    End If
Loop
Builder.Close() '关闭ADOXBuilder
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1287 积分：10368 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/8/3 11:43:00 [显示全部帖子]

我的目的是想用这个来做每日的事物记录，如果临时表，就不能实现了。或者有没有其他思路方法 另外我用的是外部数据源。
[此贴子已经被作者于2018/8/3 11:47:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1287 积分：10368 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/8/3 15:36:00 [显示全部帖子]

我是外部sql server 数据源，这样的话是可以实现的是吧。

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


加好友 发短信
等级：六尾狐 帖子：1287 积分：10368 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/8/7 12:40:00 [显示全部帖子]

已经弄好了。现在又有一个相关问题，就是现在的列比较多。所以每次加载的时候比较慢，如何设置加载进来的列只是前一个月，本月，后一个月的日期呢。

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


加好友 发短信
等级：六尾狐 帖子：1287 积分：10368 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/8/7 15:46:00 [显示全部帖子]

Dim D As Date = Date.Today
Dim SD As Date = Date.Today.AddMonths(-1)
Dim ED As Date = Date.Today.AddMonths(1)
Dim Names As New List(Of String)

Do
    Dim nm As String = "sp" & SD.Year & "年" &  SD.Month & "月_" & SD.Day
    Names.Add(nm)
    sd = sd.Adddays(1)
    If sd > ed Then
        Exit Do
    End If
Loop
For i As Integer=  0 To Names.count-1

现在用上面的代码把日期都加入到了集合，，不知道如何把集合一个个的列入sel ec t语句里面



[此贴子已经被作者于2018/8/7 15:49:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1287 积分：10368 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/8/7 16:12:00 [显示全部帖子]

搞定了。图片点击可在新窗口打开查看
Dim D As Date = Date.Today
Dim SD As Date = Date.Today.AddMonths(-1)
Dim ED As Date = Date.Today.AddMonths(1)
Dim Names As New List(Of String)
Dim str As String ="sp" & SD.Year & "年" &  SD.Month & "月_" & SD.Day

Do
    sd = sd.Adddays(1)
    Dim nm As String = "sp" & SD.Year & "年" &  SD.Month & "月_" & SD.Day
    str= str & "," & nm
    
    If sd > ed Then
        Exit Do
    End If
Loop
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04980 秒, 5 次数据查询