不要重置列，单独做一个按钮，执行全表的操作。
Dim dt As DataTable = DataTables("表A")
Dim cmd As new SQLCommand
cmd.CommandText = "select * from {" & dt.name & "}"
Dim dt_temp As DataTable = cmd.ExecuteReader
For Each dr As DataRow In dt.datarows
Dim cnt As Integer = dt_temp.Compute( "Count([_Identify])", _
"帐期 = '" & dr("帐期") & "' And " & _
"姓名 = '" & dr("姓名") & "' And " & _
"证件号码 = '" & dr("证件号码") & "' And " & _
"帐款性质 = '" & dr("帐款性质") & "' And " & _
"缴费年月 = '" & dr("缴费年月") & "' And " & _
"社保险种 = '" & dr("社保险种") & "'" )
dr("UNIQUE检查") = cnt
Next
加好友 
发短信
Post By：2016/12/26 16:17:00 [显示全部帖子]
