pb 如何判断数据窗口中是否有某个字段_怎么判断数据窗口中某个字段存在重复的数据...

今天写代码的是碰到上面的问题，头都大了，刚开始的时候是把这个列的所以的字段都存储在数组中，拼接成一个字符串，然后对改字符串进行写代码，即使这样要写这样的代码还是有点麻烦的。后来问下了同事，没想到，下面两条语句就搞定了。。。

li_sum = Integer(dw_1.Describe("evaluate('count(shunxuhao for all distinct)',1)"))

If (li_sum < dw_1.RowCount( )) THEN

sys.msg( "保存失败，存在重复的顺序序号！")

RETURN

END IF

'count(shunxuhao for all distinct) //是根据字段shunxunhao distinct之后的记录数。

evaluate('count(shunxuhao for all distinct)',1) //评价把值取出来 。

dw_1.Describe("evaluate('count(shunxuhao for all distinct)',1)") 获取这个值 。。。

还没有想到这样也可以。。。嘿嘿(经典啊 )

下面是网上查看怎么有重复行，相对来说还是偶的比较简单。。。。

使用Update函数保存数据之前，通常要判断数据窗口中是否有主键重复的数据，如果有重复则不允许提交。如果我们不编写程序判断，数据窗口本身业可以进行校验，但是显示的都是英文的提示信息。为此，我们通常在DBError事件中返回1以屏蔽该英文的提示信息，然后编写程序进行主键重复判断。

进行主键重复判断，实现的方法很多，效率高的不多。这里介绍的是效率非常高的一种方法。该方法的思路是，通过过滤，将只显示过一次的数据虑除，如果过滤之后数据窗口中还有数据，则说明有重复数据。程序如下：

string ls_fieldname

long ll_rc

ls_fieldname = "dept_id"

ll_rc = dw_1.RowCount()

dw_1.SetFilter("")

dw_1.Filter()

dw_1.SetSort(ls_fieldname + " A")

dw_1.Sort()

dw_1.SetFilter(ls_fieldname + " <> " + ls_fieldname + "[-1] or GetRow() =1")

dw_1.Filter()

if dw_1.RowCount() < ll_rc then

MessageBox("注意",ls_fieldname + "列中存在重复的数据!",StopSign!)

end if