-
- 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
Отсюда: http://thedailywtf.com/Articles/For-The-Love-Of.aspx
|