主题：[求助]窗口Tables 空间显示重复值

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        If MessageBox.Show("此订单号已经存在,日期:" & dr("日期") & ",是否继续输入?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) =DialogResult.No Then
            e.Cancel = True
        End If
    End If
End If

If e.DataCol.Name = "订单号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("订单号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
       Dim wz As Integer = e.DataTable.FindRow(dr)
       If wz >= 0 Then
         Tables("订单").Position = wz                     '获得焦点位置
     End If

    End If
End If

谢谢热心的解答。

我现在有个疑问就是，通过以下的代码获得了重复值得行r，怎么将这个r提取出对应的值

With CurrentTable
    Dim r As Integer
    r = .FindRow("[公司名称] Like '*湛江*'", .Position + 1, True ) '从当前行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行。
    End If
End With

因为我需要提取这个重复值然后对应放到窗口的Tables控件里。

什么意思啊？

一般都是Table控件绑定到这个表，然后设置其Filter属性就行了。