以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  提问下专家  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2588)

--  作者:hejfen
--  发布时间:2009/4/24 11:58:00
--  提问下专家
如有房号有201和304记录,用什么代码可以自动生成202、203、204、301、302、303房号的记录并填入另一表中?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


--  作者:狐狸爸爸
--  发布时间:2009/4/24 12:07:00
--  
看不懂
--  作者:don
--  发布时间:2009/4/24 12:13:00
--  


这样?

Dim tb As Table = Tables("表B")
Dim n1,n2,n As Integer
n1 = 201
n2 = 304
For n = 0 to 2
    tb.rows(n)(0) = n1 + n + 1
    tb.rows(n)(1) = n2+n-3
Next