主题：(请教)帮助修改1下代码

'''
dim dr1,dr2 as datarow
dim bj,dackj as string
dim dt1,dt2 as datatable
dt1 = datatables("表A")
dt2 = datatables("表C")

for Each dr1 in dt1.select("[编号] >''")
    bj = "[编号] = '" & dr1("编号")
    bj = bj & "'And [结果] = '检出'"
    if dt2.Find(bj) Is Nothing  then
        dr1("结论") = "全部合格"  
    Else
        for each dr2 in Dt2.select(bj)
             dackj =  dackj & "," & "编号" & dr2("序号")        
        next
        dr1("结论") = dackj.substring(1) & "不合格"

    End If
next

归空,重新开始,不然就会累积上一行的[dackj]值