主题：(请教)帮助修改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 [结果] = '检出'"
        dackj = ""
        for each dr2 in Dt2.select(bj)
             dackj =  dackj & "," & "编号" & dr2("序号")        
        next
        dr1("结论") = dackj.substring(1) & "不合格"
Next