如何实现单元格特定列的数值加1 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何实现单元格特定列的数值加1

共有2611人关注过本帖树形打印复制链接主题：如何实现单元格特定列的数值加1

lycliu

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

等级：幼狐帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00

如何实现单元格特定列的数值加1 发帖心情

Post By：2018/7/3 16:19:00 [显示全部帖子]

通过身份证号码查找对比符合条件之后，员工表中的数量列的单元格数值加1怎么实现

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "A"
cmd.CommandText = "SELECT * Fr om {员工}"
dt = cmd.ExecuteReader()

For Each dr As DataRow In dt.DataRows
If DataTables("员工").Find("身份证号码 = '" & dr("身份证号码") & "'") Is Nothing Then

lycliu

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

等级：幼狐帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00

文字加图片

Post By：2018/7/4 9:05:00 [显示全部帖子]

在条码编号里面输入字符串数值，在数据库表A中存在，比如存在和图中第一行箱码：围壁，物料编号：BCD123的数据，然后再已扫数量列的单元格的数值+1
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20180704085356.png

lycliu

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

等级：幼狐帖子：65 积分：532 威望：0 精华：0 注册：2018/4/9 15:45:00

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

为什么这么写的代码会出现索引超出界限呢？

Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox01")

Dim ary() As String =tb1.text.Split("/")

Dim dr As DataRow = DataTables("装箱扫码_table1").find("物料编号='"&ary(2)&"'")

If dr IsNot Nothing Then

dr("已扫数量") += 1

Tables("装箱扫码_table1").save()

End If

此主题相关图片如下：qq图片20180705155009.png

主题：如何实现单元格特定列的数值加1