- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
For intAtts As Integer = 5 To strParams.Length - 1
Select Case (intAtts + 1) Mod 3
Case 0
'--- Set where to find the attachments
Select Case strParams(intAtts).ToUpper
Case "TASKVIEW"
strAttach = CType(Me.Parent, ctlTaskViewTemplate).ctlDocNavigator.ContainerID.ToString & ","
Case "WORKITEM"
strAttach = WorkItem.WorkItemContainer.ToString & ","
Case "CASE"
strAttach = BFECase.CaseContainerID.ToString & ","
End Select
Case 1
'--- Set the relative path of where to find the attachments
strAttach = strAttach & strParams(intAtts) & ","
Case 2
'--- Set the type of document used to find the attachments
strAttach = strAttach & strParams(intAtts)
arrAttachments.Add(strAttach)
strAttach = ""
End Select
Next intAtts
вот и попробуй пойми что в этих массивах по какому принципу лежит
guest 24.10.2009 18:46 # 0
Каждый триплет форматируется в строку, которая потом добавляется в массив аттачей (добавление происходит на последнем шаге, в case 2).
Вообще VB приятный язык, очень понятный с первого взгляда. Везет тебе :)
guest 26.11.2009 22:26 # 0
мдас...