Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动填充规定内容


  共有1754人关注过本帖树形打印复制链接

主题：自动填充规定内容
帅哥哟，离线，有人找我吗？
wu725
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：77 积分：996 威望：0 精华：0 注册：2012/2/6 16:33:00 		自动填充规定内容  发帖心情 Post By：2017/7/15 21:51:00 [只看该作者]

我设计成绩表，考室列每次增加5-10行，在增加的第一行录入01考室，输入完后自动向刚增加行内填充，与第一行输入内容01考室一样，如果又增加行，在增加的第一行输入02，其余四行自动填充成02，请指点一下代码如何编写，谢谢。

 回到顶部
帅哥哟，离线，有人找我吗？
wyz20130512
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1249 积分：9480 威望：0 精华：0 注册：2013/5/12 9:22:00 		  发帖心情 Post By：2017/7/16 10:58:00 [只看该作者]

Dim max_ksh As Integer
Dim t As Table = Tables("表A")
max_ksh = t.Compute("Max(考室)") + 1
Dim r As Row
For i As Byte = 1 To 5
    r = t.AddNew()
    r("考室") = Format(max_ksh,"00")
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03174 秒, 4 次数据查询