- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教，新增行时，自动赋值的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=105090)
-- 发布时间：2017/8/11 11:10:00
-- 请教，新增行时，自动赋值的问题
如题：
新增 多行，比如说，新增10行，要求 新增时，编号 相同，有 一个 列变量 是数量，要求 依次 1，2，3，。。。。10，请教怎么搞，在线急等。
此主题相关图片如下：11.png
此主题相关图片如下：11.png-- 发布时间：2017/8/11 11:19:00
--
For i As Integer = 1 To 10
Dim ndr As DataRow = DataTables("表a").addnew
ndr("某列") = "abc"
ndr("数量") = i
Next
-- 发布时间：2017/8/11 11:37:00
--
表事件：DataColChanged
If e.DataCol.name = "编号" Then
Dim s As Integer
e.DataRow("数量") = 0
s = DataTables("表名").Compute("max(数量)","编号 = \'" & e.DataRow("编号") & "\'")
e.DataRow("数量") = s +1
End If