主题：[求助] 判断重复值的问题

一个表，如何在选中的某些行中，判断某个列的值是否相同，并获得该值.

是同行是否相同,还是不同行也算呢?

附件中的例子，已经在表1中选中了5行。 这5行的C列值都是A。 我要在窗口中点击一个按钮，判断这5行的C列是不是相同，如果相同，在表2中增加一行记录，并将值A,写入表2中新增行的某一列。

例子

例子

上传图片和文件参考这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78 请尽量使用IE,谷歌,火狐等主流浏览器上传.   使用谷歌浏览器必须要先输入一个以上的字符 上传后需要等文件代码出现才算成功!

we

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.table

谢谢，我说怎么总是上传不了呢

附件中的例子，已经在表1中选中了5行。 这5行的C列值都是A。 我要在窗口中点击一个按钮，判断这5行的C列是不是相同，如果相同

在表2中增加一行记录，并将值A,写入表2中新增行的某一列。    这部分没看明白.

 如下代码

 

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