If IsTrialFile() Then
With moHcoSelectedMeasure
For iHcoCnt = 0 To 2
For iMsrCnt = 0 To 11
.AddNew
.Fields("hco_id") = lHcoIDs(iHcoCnt)
.Fields("rfi_ind_id") = lMsrIDs(iMsrCnt)
.Fields("hcop_mop_clct_bgn_dt") = "12/31/1967"
.Fields("hcop_mop_clct_end_dt") = "12/31/2999"
Next iMsrCnt
Next iHcoCnt
End With
End If
rajeshgs.net
Member
23 Points
69 Posts
best way to implement?
Mar 16, 2012 07:41 AM|LINK
What is best way to implement below code in vb.net 2010?
'Initializing array
lHcoIDs(0) = 1999999997
lHcoIDs(1) = 1999999998
lHcoIDs(2) = 1999999999
lMsrIDs(0) = 1999999982
lMsrIDs(1) = 1999999983
lMsrIDs(2) = 1999999984
lMsrIDs(3) = 1999999985
lMsrIDs(4) = 1999999986
lMsrIDs(5) = 1999999987
lMsrIDs(6) = 1999999988
lMsrIDs(7) = 1999999989
lMsrIDs(8) = 1999999990
lMsrIDs(9) = 1999999991
lMsrIDs(10) = 1999999992
lMsrIDs(11) = 1999999993
If IsTrialFile() Then
With moHcoSelectedMeasure
For iHcoCnt = 0 To 2
For iMsrCnt = 0 To 11
.AddNew
.Fields("hco_id") = lHcoIDs(iHcoCnt)
.Fields("rfi_ind_id") = lMsrIDs(iMsrCnt)
.Fields("hcop_mop_clct_bgn_dt") = "12/31/1967"
.Fields("hcop_mop_clct_end_dt") = "12/31/2999"
Next iMsrCnt
Next iHcoCnt
End With
End If
Frank Jiang ...
All-Star
16006 Points
1728 Posts
Microsoft
Re: best way to implement?
Mar 19, 2012 08:00 AM|LINK
Dynamically create a table to display these fields.
Thanks
Feedback to us
Develop and promote your apps in Windows Store