- 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=50581)
-- 发布时间：2014/5/9 10:18:00
-- [求助] 判断重复值的问题
一个表，如何在选中的某些行中，判断某个列的值是否相同，并获得该值.
例：表1有A,B,C三列，共10行， 用复选框选中其中5行。想判断选中的这5行，C列的值是否相同。如果相同，获得该值，写入另一个表；否则取消操作。该怎样写代码？
谢谢！
-- 发布时间：2014/5/9 10:24:00
--
是同行是否相同,还是不同行也算呢?
你要如何写入另外一个表?
上个例子比较好.
-- 发布时间：2014/5/9 10:43:00
--
附件中的例子，已经在表1中选中了5行。 这5行的C列值都是A。 我要在窗口中点击一个按钮，判断这5行的C列是不是相同，如果相同，在表2中增加一行记录，并将值A,写入表2中新增行的某一列。
希望能说明白！
谢谢!
-- 发布时间：2014/5/9 10:45:00
--
例子
-- 发布时间：2014/5/9 10:51:00
--
例子
-- 发布时间：2014/5/9 10:53:00
--
上传图片和文件参考这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78 请尽量使用IE,谷歌,火狐等主流浏览器上传. 使用谷歌浏览器必须要先输入一个以上的字符 上传后需要等文件代码出现才算成功! |
-- 发布时间：2014/5/9 10:54:00
--
we
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
上传
-- 发布时间：2014/5/9 10:55:00
--
谢谢，我说怎么总是上传不了呢
-- 发布时间：2014/5/9 10:59:00
--
附件中的例子，已经在表1中选中了5行。 这5行的C列值都是A。 我要在窗口中点击一个按钮，判断这5行的C列是不是相同，如果相同 |
-- 发布时间：2014/5/9 11:10:00
--
如下代码
Dim flag As Boolean = True
For i As Integer = 1 To Tables("表1").GetCheckedRows.count - 1
If Tables("表1").GetCheckedRows(i-1)("c") <> Tables("表1").GetCheckedRows(i)("c") Then
flag = False
End If
Next
If flag Then
Dim nr As Row = Tables("表2").AddNew
nr("第一列") = Tables("表1").GetCheckedRows(0)("c")
End If