以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何用命令批量填入子序号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123126)

--  作者:ehomecd
--  发布时间:2018/8/8 13:35:00
--  如何用命令批量填入子序号

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180808133120.png
图片点击可在新窗口打开查看

一个会议有很多议程,想根据会议id,用命令面板批量生成议程的序号,每个会议的议程都重新从1开始,如上图所示,请大神指点应该如何写代码。

--  作者:2900819580
--  发布时间:2018/8/8 14:03:00
--  
Dim tb As Table = Tables(e.Form.Name & "_Table1")
Dim dt As DataTable = tb.DataTable
For Each r As Row In tb.Rows
    Dim i As Integer = dt.Compute("max(序号)","会议id = \'" & r("会议id") & "\'")
r("序号") = i + 1
Next

--  作者:有点甜
--  发布时间:2018/8/8 14:13:00
--  

回复1楼,参考

 

http://www.foxtable.com/webhelp/scr/2382.htm

 


--  作者:ehomecd
--  发布时间:2018/8/8 14:22:00
--  
谢谢二位