- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这列的个数代码怎么写（放在哪？） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1152)
-- 发布时间：2008/11/17 13:38:00
-- 这列的个数代码怎么写（放在哪？）
附件中‘同编号个数’列的代码不会写，
另外增加一行时，日期要自动跟下来，‘同编号个数’列要自动增加1。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:next.table |
此主题相关图片如下：未命名.jpg
[此贴子已经被作者于2008-11-17 13:43:08编辑过]
-- 发布时间：2008/11/17 14:24:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目3.table |
-- 发布时间：2008/11/17 14:35:00
--
谢谢czy版主！～ 另外用下面代码全新增加多行时，怎么把当前日期自动加入这些新增的行的日期列中。
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
DataTables("调用").DataRows.Clear()
For i As integer = 1 To 8
DataTables("调用").AddNew()("编号") = Max + 1
Next
-- 发布时间：2008/11/17 14:53:00
--
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
DataTables("调用").DataRows.Clear()
For i As integer = 1 To 8
DataTables("调用").AddNew()("编号") = Max + 1
DataTables("调用").DataRows("日期")=Data.Today()
Next
-- 发布时间：2008/11/17 14:59:00
--
谢谢
smileboy
版主有时好怕提得问题太菜了。～
可是放在命令窗口中执行后提示错误Name \'data\' is not cdeclared，不知道为什么？
[此贴子已经被作者于2008-11-17 15:03:56编辑过]
-- 发布时间：2008/11/17 15:26:00
--
还是不行，请在2楼文件的基础上测试。
-- 发布时间：2008/11/17 15:33:00
--
Dim Max As integer = DataTables("订单").Compute("Max(编号)")
DataTables("调用").DataRows.Clear()
For i As integer = 1 To 8
Dim dr As DataRow = DataTables("调用").AddNew()
dr("编号") = Max + 1
dr("日期")=Date.Today()
Next
-- 发布时间：2008/11/17 18:03:00
--
哈哈～ smileboy版主，辛苦您了，ok啦，谢谢。