以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  判断选中的行的上一行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153254)
--  作者：yangwenghd
--  发布时间：2020/8/5 11:15:00
--  判断选中的行的上一行
老师，如何在第一列 有“客户”行的上一行写入“A”呀
比如，点击按钮，判断第一列的行有客户的字符，然后在判断这些有客户的字符上一行（系统序号的上一行）是否有内容，如果有不变，如果没有，就在上一行写如A。
感谢 感谢 

For i As Integer = 1 To Tables("表A").rows.count+ 1
If Tables("表A").rows(i)("第一列") = Tables("表A").rows(i+1)("第一列") Then
Tables("表A").rows(i)("第二列") = "A"
End If
Next

这里的A 可以只写入上面的一行吗？现在点击，上面相同的都会被些如A 感谢 老师
[此贴子已经被作者于2020/8/5 11:24:47编辑过]
--  作者：有点蓝
--  发布时间：2020/8/5 11:31:00
--  
For i As Integer = 1 To Tables("表A").rows.count- 1
    If Tables("表A").rows(i)("第一列")  Like "*客户*" Then
        Tables("表A").rows(i-1)("第二列") = "A"
    End If
Next
--  作者：yangwenghd
--  发布时间：2020/8/5 11:41:00
--  
谢谢老师，还是会输出多行，
是这样的，我想把第二列 有相同的行，的上一行写入A，前提是 第二列相同行行的上一行内没有字符。
比如
现在这一行是相同，然后判断上一行有没内容，如果有就不填，如果没有就写入A，只要是用来判断被检测相同的第一行。感谢 老师
--  作者：有点蓝
--  发布时间：2020/8/5 11:46:00
--  
For i As Integer = 1 To Tables("表A").rows.count - 1
    If Tables("表A").rows(i-1).IsNull("第二列") AndAlso Tables("表A").rows(i)("第一列") = Tables("表A").rows(i-1)("第一列") Then
        Tables("表A").rows(i-1)("第二列") = "A"
    End If
Next
[此贴子已经被作者于2020/8/5 11:45:56编辑过]
--  作者：yangwenghd
--  发布时间：2020/8/5 11:50:00
--  
还是有点点不对，我说得不是很好理解，
我在添加这段代码后，同时也想把检测到相同的第一行也标准出来，写上A

For i As Integer = 1 To Tables("表A").rows.count- 1
If Tables("表A").rows(i)("第一列") = Tables("表A").rows(i-1)("第一列") Then
Tables("表A").rows(i)("第二列") = "客户"
End If
Next
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200805114643.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/8/5 13:29:00
--  
For i As Integer = 0 To Tables("表A").rows.count - 2
    If Tables("表A").rows(i).IsNull("第二列") AndAlso Tables("表A").rows(i)("第一列") = Tables("表A").rows(i+1)("第一列") Then
        Tables("表A").rows(i)("第二列") = "A"
    End If
Next
--  作者：yangwenghd
--  发布时间：2020/8/5 13:56:00
--  
谢谢老师，可以了感谢，