01.
Dim
R_RGrade()
As
Double
= {IIf(U_txtRGrade_1.Text =
""
,
"0"
, U_txtRGrade_1.Text), IIf(U_txtRGrade_2.Text =
""
,
"0"
, U_txtRGrade_2), IIf(U_txtRGrade_3.Text =
""
,
"0"
, U_txtRGrade_3) & _
02.
""
, IIf(U_txtRGrade_4.Text =
""
,
"0"
, U_txtRGrade_4.Text), IIf(U_txtRGrade_5.Text =
""
,
"0"
, U_txtRGrade_5), IIf(U_txtRGrade_6.Text =
""
,
"0"
, U_txtRGrade_6) & _
03.
""
, IIf(U_txtRGrade_7.Text =
""
,
"0"
, U_txtRGrade_7.Text), IIf(U_txtRGrade_8.Text =
""
,
"0"
, U_txtRGrade_8), IIf(U_txtRGrade_9.Text =
""
,
"0"
, U_txtRGrade_9) & _
04.
""
, IIf(U_txtRGrade_10.Text =
""
,
"0"
, U_txtRGrade_10.Text), IIf(U_txtRGrade_11.Text =
""
,
"0"
, U_txtRGrade_11), IIf(U_txtRGrade_12.Text =
""
,
"0"
, U_txtRGrade_12) & _
05.
""
, IIf(U_txtRGrade_13.Text =
""
,
"0"
, U_txtRGrade_13.Text), IIf(U_txtRGrade_14.Text =
""
,
"0"
, U_txtRGrade_14), IIf(U_txtRGrade_15.Text =
""
,
"0"
, U_txtRGrade_15) & _
06.
""
, IIf(U_txtRGrade_16.Text =
""
,
"0"
, U_txtRGrade_16.Text) & _
07.
""
, IIf(L_txtRGrade_1.Text =
""
,
"0"
, L_txtRGrade_1.Text), IIf(L_txtRGrade_2.Text =
""
,
"0"
, L_txtRGrade_2.Text), IIf(L_txtRGrade_3.Text =
""
,
"0"
, L_txtRGrade_3.Text) & _
08.
""
, IIf(L_txtRGrade_4.Text =
""
,
"0"
, L_txtRGrade_4.Text), IIf(L_txtRGrade_5.Text =
""
,
"0"
, L_txtRGrade_5.Text), IIf(L_txtRGrade_6.Text =
""
,
"0"
, L_txtRGrade_6.Text) & _
09.
""
, IIf(L_txtRGrade_7.Text =
""
,
"0"
, L_txtRGrade_7.Text), IIf(L_txtRGrade_8.Text =
""
,
"0"
, L_txtRGrade_8.Text), IIf(L_txtRGrade_9.Text =
""
,
"0"
, L_txtRGrade_9.Text) & _
10.
""
, IIf(L_txtRGrade_10.Text =
""
,
"0"
, L_txtRGrade_10.Text), IIf(L_txtRGrade_11.Text =
""
,
"0"
, L_txtRGrade_11.Text), IIf(L_txtRGrade_12.Text =
""
,
"0"
, L_txtRGrade_12.Text) & _
11.
""
, IIf(L_txtRGrade_13.Text =
""
,
"0"
, L_txtRGrade_13.Text), IIf(L_txtRGrade_14.Text =
""
,
"0"
, L_txtRGrade_14.Text), IIf(L_txtRGrade_15.Text =
""
,
"0"
, L_txtRGrade_15.Text) & _
12.
""
, IIf(L_txtRGrade_16.Text =
""
,
"0"
, L_txtRGrade_16.Text)}