| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]自动增加表内容的问题请教 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90494) |
| -- 作者：我来看看 -- 发布时间：2016/9/14 10:52:00 -- [求助]自动增加表内容的问题请教 我现有有表A，当我点击按钮“录入上旬数据”的时候，自动在表A中增加10行数据，年度数据列自动填入当前年份，月度数据列自动填入当前月份，日期列（字符型）中自动增加1日、2日、3日……10日，其他内容手动录入，请教如何写代码？？ [此贴子已经被作者于2016/9/14 10:54:12编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2016/9/14 11:08:00 -- Dim idx As Integer = Tables("表A").Rows.count Tables("表A").AddNew(10) Dim d As Date = Date.Today Dim dr As Row Dim day As Integer = 1 For i As Integer = idx To Tables("表A").Rows.count - 1 dr = Tables("表A").Rows(i) dr("第一列") = d.Year dr("第二列") = d.Month dr("第三列") = day day += 1 Next
|
| -- 作者：我来看看 -- 发布时间：2016/9/19 16:03:00 -- 谢谢蓝老师，按钮操作成功了。
我现在还需要按旬进行统计，可是统计都需要按照日期进行分组，我的这个表中的日期是字符型的数据列，请问如何进行统计呢？？？ |
| -- 作者：有点蓝 -- 发布时间：2016/9/19 16:11:00 -- 1、改为日期列 2、增加一个日期列 具体问题上传例子说明
|
| -- 作者：我来看看 -- 发布时间：2016/9/19 16:18:00 -- 那么我就增加一个日期列，请问我日期列是隐藏的，主要是为了统计用，那么我的日期列如何也按照上面的代码自动在日期列中对照前面的那个日期增加9月1日…… |
| -- 作者：我来看看 -- 发布时间：2016/9/19 21:08:00 -- 老师呢?????????????????? |
| -- 作者：有点蓝 -- 发布时间：2016/9/19 21:15:00 -- For i As Integer = idx To Tables("表A").Rows.count - 1 dr = Tables("表A").Rows(i) dr("第一列") = d.Year dr("第二列") = d.Month dr("第三列") = day dr("日期") = new date(d.Year,d.Month,day) day += 1 Next |