For Each dr As DataRow In DataTables("工位").DataRows
If dr.IsNull("工位编号") = False
Dim gwbh As String = dr("工位编号")
Dim cpkh As String = RibbonTabs("工艺管理")("工位").Items("产品款号").Text
dr("工序编号") = DataTables("资料").GetComboListString("工序编号","(工位编号 = '" & gwbh & "' or 工位编号 like '" & gwbh & "_%' or 工位编号 like '%_" & gwbh & "' or 工位编号 like '%_" & gwbh & "_%') and 产品款号 = '"& cpkh &"'").Replace("|","_")
End If
next