主题：这列的个数代码怎么写（放在哪？）

附件中‘同编号个数’列的代码不会写，
另外增加一行时，日期要自动跟下来，‘同编号个数’列要自动增加1。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:next.table

此主题相关图片如下：未命名.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目3.table

谢谢czy版主！～  另外用下面代码全新增加多行时，怎么把当前日期自动加入这些新增的行的日期列中。

Dim Max As integer = DataTables("订单").Compute("Max(编号)")
DataTables("调用").DataRows.Clear()
For i As integer  = 1 To 8
   DataTables("调用").AddNew()("编号") = Max + 1
Next

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

谢谢

版主

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

可是放在命令窗口中执行后提示错误Name 'data' is not cdeclared，不知道为什么？

还是不行，请在2楼文件的基础上测试。

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

 哈哈～  smileboy版主，辛苦您了，ok啦，谢谢。