以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  能否填加临时列，写一表达式在列中填写行号？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=116110)
--  作者：kgdce
--  发布时间：2018/3/20 9:45:00
--  能否填加临时列，写一表达式在列中填写行号？
dim str as string ="表B“
DataTables(str).DataCols.Add("排序号", Gettype(Integer), ”表达式”)
目的是在排序号中直接填写tables(str)每一行的行号。
--  作者：有点甜
--  发布时间：2018/3/20 10:13:00
--  

Dim str As String ="表B"
DataTables(str).DataCols.Add("排序号", Gettype(Integer))
For Each r As Row In Tables(str).rows
    r("排序号") = r.index + 1
Next