以文本方式查看主题

-  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)

--  作者:mr725
--  发布时间:2008/11/17 13:38:00
--  这列的个数代码怎么写(放在哪?)
附件中‘同编号个数’列的代码不会写,
另外增加一行时,日期要自动跟下来,‘同编号个数’列要自动增加1。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:next.table


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2008-11-17 13:43:08编辑过]

--  作者:czy
--  发布时间:2008/11/17 14:24:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:mr725
--  发布时间: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


--  作者:smileboy
--  发布时间: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

--  作者:mr725
--  发布时间:2008/11/17 14:59:00
--  

谢谢帅哥,在线噢!

smileboy
版主

有时好怕提得问题太菜了。~

可是放在命令窗口中执行后提示错误Name \'data\' is not cdeclared,不知道为什么?
[此贴子已经被作者于2008-11-17 15:03:56编辑过]

--  作者:mr725
--  发布时间:2008/11/17 15:26:00
--  
还是不行,请在2楼文件的基础上测试。
--  作者:smileboy
--  发布时间: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

--  作者:mr725
--  发布时间:2008/11/17 18:03:00
--  
 哈哈~  smileboy版主,辛苦您了,ok啦,谢谢。