以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  狐狸爸爸请进，求教  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33034)
--  作者：huzidage
--  发布时间：2013/5/12 12:32:00
--  狐狸爸爸请进，求教
怎样判断这个表达式：Tables("商品信息表").Filter = "零件代码=\'" & ljbm.text & "\'"   

获得的记录结果为空或记录不唯一，谢谢！

顺便问一下，有没有互相交流的QQ群啊~~
[此贴子已经被作者于2013-5-12 12:41:58编辑过]
--  作者：czy
--  发布时间：2013/5/12 13:28:00
--  

好像有些麻烦

 

Dim ColValue As New List(Of String)
For Each dr As DataRow In DataTables("表A").DataRows
    If ColValue.Contains(dr("第一列")) = False Then
        dr.BaseRow("System_Filter_Unique") = Nothing
        ColValue.Add(dr("第一列"))
    Else
        Output.Show(dr("第一列"))
        dr.BaseRow("System_Filter_Unique") = 1
    End If
Next
Tables("表A").Filter = "第一列 = \'指定值\' or [System_Filter_Unique] = 1"