1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| maDA.AddProject(txt_projectname.Text, txt_estimated_charge.Text, CType(TextBoxSD.Text, DateTime))
For i = 0 To DataListActor.Items.Count - 1
If DataListActor.Items(i).Selected Then
bool = dll1.verif_DispoActorProject(DataListActor.Items(i).Text)
If bool = True Then
maDA.AddPro_Act(Date.Now, CType(maDA.GetMaxProjectsId, Integer), DataListActor.Items(i).Value, DropDownListS.SelectedValue)
Else
Response.Write("<body><script>alert('Actor " & DataListActor.Items(i).Text & " already affected in another project');</script></body>")
Exit Sub
End If
End If
Next
Response.Write("<body><script>alert('Project Added');</script></body>")
Else
Label7.Text = "one actor requiered at least"
Exit Sub |
Partager