简化录入式自动填表如何实现？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 简化录入式自动填表如何实现？

共有2341人关注过本帖树形打印复制链接主题：简化录入式自动填表如何实现？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/20 22:58:00 [显示全部帖子]

1、http://www.foxtable.com/webhelp/scr/2403.htm

2、不理解你的意思。某一个行生成这些数据？只需要生成数据填入单元格就行？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/20 23:12:00 [显示全部帖子]

以下是引用旭日生在2017/8/20 23:09:00的发言：
是的，就是这意思。但需要在窗口中实现。不知为什么上传的图片不显示？

上传具体的实例说明问题。 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/21 9:04:00 [显示全部帖子]

做个按钮

Dim txt1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim txt2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim bh = Format(Date.Today, "yyMMdd") & Format(val(txt1.text), "000")
For i As Integer = 1 To txt2.text
    Dim nr As Row = e.Form.controls("table1").Table.addnew
    nr("LSH") = bh
    nr("FILENAME") = i & ".jpg"
Next

下一主题 >> << 上一主题

主题：简化录入式自动填表如何实现？