主题：筛选相同的产品代号 进行确认

If e.DataCol.Name = "批准开发" Then 

    Dim   dr1 As  DataRow = e.DataRow
    Dim dr As DataRow
    dr = dataTables("报价管理系统").find("[生产加工评估_加工工序] like '%" & dr1("xxx列，自己改") & "% And [批准开发] = True "
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")

If e.DataCol.Name = "批准开发" Then 

if e.newvalue then

    e.DdataTable.replacefor("批准开发”，true，"[生产加工评估_加工工序]='" & e.datarow("[生产加工评估_加工工序]") & "' And [批准开发] = false"

    End If
End If