1、试试cmd.commandtext = "updat e 销售明细 set 单数 = 0 where _Identify > " & val & " And 单号 In (Selec t 单号 from 销售明细 where _Identify > " & val & " group by 单号 having count(*) > 1) And [_Identify] not In (Selec t min([_Identify]) from 销售明细 where _Identify > " & val & " group by 单号 having count(*) > 1) And 单数 Is null "
2、第一种方法,参考,不过需要对应的单号都要加载
Tables("表A").RepeatFilter("单号",1)
For Each r As Row In Tables("表A").Rows
r("单数") = 1
Next
DataTables("表A").ReplaceFor("单数",0,"单数 is null")
Tables("表A").ApplyFilter = False
[此贴子已经被作者于2016/11/15 10:19:43编辑过]