- 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
... ооп во всех позах :)
guest 17.06.2009 18:17 # −1
Это, наверное, кодогенератор на ЛИСПе постаралсо.
w495 21.10.2009 01:29 # 0
guest 18.06.2009 07:30 # −1
guest 18.06.2009 12:57 # 0
Давайте теперь постить сюда все CodeSOD'ы с TheDailyWTF.com?
Это ж буквально пару дней назад там было.
guest 25.11.2009 21:46 # 0
как ноги моей первой девушки