If e.DataCol. Name ="confirm" Then
If e.NewValue = 0 Then
e.DataRow( "Material") = Nothing
Else
Dim s1 ,flt As String
flt = "Product='" & e.DataRow( "product") & "'"
s1= DataTables("Material").GetComboListString("Material",flt)
If s1 > "" Then s1=s1.Replace("|","+")
e.DataRow( "Material") = s1
End If
End If