请教数据累加方法 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教数据累加方法

共有2566人关注过本帖树形打印复制链接主题：请教数据累加方法

jinhetian

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

等级：幼狐帖子：81 积分：632 威望：0 精华：0 注册：2018/4/17 11:59:00

请教数据累加方法 发帖心情

Post By：2018/6/5 13:35:00 [显示全部帖子]

此主题相关图片如下：捕获1.png

有一个表格表名为生产进度表，另有一个录入窗口录入代码为：

Forms("焊接调试检验").panel.FindForm.Activate

Forms("焊接调试检验").Controls("TextBox3").Select()

static flag As Boolean = False

If e.sender.text.length > 3 AndAlso flag Then

If e.sender.text(0) = "0" And e.sender.text(1)="1" Then

e.Form.controls("TextBox2").text = "J18A1"

Tables("生产进度表").Current("焊接") = "1"

e.Form.controls("TextBox2").WriteValue

End If

现要求是当判断产品是"J18A1"的时候，生产进度表的J18A1行和焊接列对应的表格里与原来数据累加1。如何实现？请老师帮忙修改一下红色部分的代码。焊接列的数据类型是正数型。

谢谢！

[此贴子已经被作者于2018/6/5 13:47:17编辑过]

jinhetian

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

等级：幼狐帖子：81 积分：632 威望：0 精华：0 注册：2018/4/17 11:59:00

Post By：2018/6/5 16:15:00 [显示全部帖子]

在表格上点击某一行后，执行上述代码可以进行累加。但不能自动选择J18A1的行进行累加。就是说可以选择列，不能选择行进行累加。如何指定行？

看了帮助文件没有看明白。请教老师帮忙解决。

[此贴子已经被作者于2018/6/5 16:15:56编辑过]

jinhetian

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

等级：幼狐帖子：81 积分：632 威望：0 精华：0 注册：2018/4/17 11:59:00

Post By：2018/6/6 12:28:00 [显示全部帖子]

修改了代码，还是指定不了行。

Dim dr As DataRow

dr = DataTables("生产进度表").Find("型号 = 'J18A1'")

dr ("调试") += 1

dr ("焊接") -= 1

[此贴子已经被作者于2018/6/6 12:51:08编辑过]

主题：请教数据累加方法