- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
For Each LVRefWarnItem In Me.ListViewRefWarn.ListItems
For Each LVDiagItem In Me.ListViewDiag.ListItems
For Each LVReqdClassItem In Me.ListViewReqdClass.ListItems
For Each LVReqdPayItem In Me.ListViewReqdPay.ListItems
For Each LVReqdSpecItem In Me.ListViewReqdSpec.ListItems
For Each LVReqingSpecItem In Me.ListViewReqingSpec.ListItems
For Each LVSvcItem In Me.ListViewSvc.ListItems
For Each LVReqdContItem In Me.ListViewReqdCont.ListItems
For Each LVReqingContItem In Me.ListViewReqingCont.ListItems
For Each LVReqingClassItem In ListViewReqingClass.ListItems
For Each LVReqingPayItem In ListViewReqingPay.ListItems
For Each LVHPCodesItem In ListViewHPCodes.ListItems
For Each LVHPOptionCodesItem In ListViewHPOptionCodes.ListItems
For Each LVPOSItem In ListViewPOS.ListItems
For Each LVReqdProvIDItem In ListViewReqdProvID.ListItems
For Each LVReqingProvIDItem In ListViewReqingProvID.ListItems
For Each LVAuthTypeItem In ListViewAuthType.ListItems
For Each LVMembCondItem In ListViewMemberCondition.ListItems
TempDe1.InsertRule _
AdvancedRule, "Advanced", Me.TextGroup, Me.CheckAutoApprove.Value, _
CDate(Me.DTPickerFromDt), CDate(Me.DTPickerToDt), ExpDate, _
LVSvcItem.Text, LVSvcItem.ListSubItems(1).Text, LVDiagItem.Text, _
LVDiagItem.ListSubItems(1).Text, IIf(LVSvcItem.ListSubItems.Count = 1, _
"0", LVSvcItem.ListSubItems(LVSvcItem.ListSubItems.Count).Text), _
LVReqdSpecItem.Text, LVReqdSpecItem.ListSubItems(1).Text, _
LVReqdClassItem.Text, LVReqdClassItem.ListSubItems(1).Text, _
LVReqdContItem.Text, LVReqdContItem.ListSubItems(1).Text, _
LVReqdPayItem.Text, LVReqdPayItem.ListSubItems(1).Text, _
LVReqingSpecItem.Text, LVReqingSpecItem.ListSubItems(1).Text,
LVReqingClassItem.Text, LVReqingClassItem.ListSubItems(1).Text, _
LVReqingContItem.Text, LVReqingContItem.ListSubItems(1).Text, _
LVReqingPayItem.Text, LVReqingPayItem.ListSubItems(1).Text, _
LVHPCodesItem.Text, LVHPCodesItem.ListSubItems(1).Text, _
LVPOSItem.Text, LVPOSItem.ListSubItems(1).Text, _
LVReqdProvIDItem.Text, LVReqdProvIDItem.ListSubItems(1).Text, _
LVReqingProvIDItem.Text, LVReqingProvIDItem.ListSubItems(1).Text, _
TextDesc.Text, TextAgeFrom.Text, TextAgeTo.Text, _
LVAuthTypeItem.Text, LVAuthTypeItem.ListSubItems(1).Text, _
LVMembCondItem.Text, LVMembCondItem.ListSubItems(1).Text, _
Me.cboRuleType.SelectedItem.Key, Me.txtRulePriority.Text, _
Int(LVRefWarnItem.Text), Int(LVRefWarnItem.ListSubItems(1).Text), _
LVHPOptionCodesItem.Text, LVHPOptionCodesItem.ListSubItems(1).Text
Next
Next LVAuthTypeItem
Next LVReqingProvIDItem
Next LVReqdProvIDItem
Next LVPOSItem
Next LVHPOptionCodesItem
Next LVHPCodesItem
Next LVReqingPayItem
Next LVReqingClassItem
Next LVReqingContItem
Next LVReqdContItem
Next LVSvcItem
Next LVReqingSpecItem
Next LVReqdSpecItem
Next LVReqdPayItem
Next LVReqdClassItem
Next LVDiagItem
Next LVRefWarnItem
... ооп во всех позах :)