- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何实现单元格特定列的数值加1 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121307)
-- 发布时间：2018/7/3 16:19:00
-- 如何实现单元格特定列的数值加1
通过身份证号码查找对比符合条件之后，员工表中的数量列的单元格数值加1怎么实现
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "A"
cmd.CommandText = "SELECT * Fr om {员工}"
dt = cmd.ExecuteReader()
If DataTables("员工").Find("身份证号码 = \'" & dr("身份证号码") & "\'") Is Nothing Then
-- 发布时间：2018/7/3 20:30:00
--
没看懂，直接用文字说明要做什么？
-- 发布时间：2018/7/4 9:05:00
-- 文字加图片
在条码编号里面输入字符串数值，在数据库表A中存在，比如存在和图中第一行箱码：围壁，物料编号：BCD123的数据，然后再已扫数量列的单元格的数值+1
此主题相关图片如下：qq图片20180704085356.png
-- 发布时间：2018/7/4 10:21:00
--
根据内容查找，然后修改值，如
Dim fdr As DataRow = DataTables("表A").find("物料编号=\'BCD123\'")
If fdr IsNot Nothing Then
fdr("已扫数量") += 1
End If
-- 发布时间：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
-- 发布时间：2018/7/5 16:38:00
--
可能不是这里的问题。
其次可以加上判断
Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox01")
Dim ary() As String =tb1.text.Split("/")
If ary.Length > 2 Then
Dim dr As DataRow = DataTables("装箱扫码_table1").find("物料编号=\'" & ary(2) & "\'")
If dr IsNot Nothing Then
dr("已扫数量") += 1
Tables("装箱扫码_table1").save()
End If
End If