月报表

Sub OnClick(ByVal Item)
Dim i, n, k, m, t, e, f, n1, n2
Dim Sql, oCom, conn, oCom1, oCom2
Dim j, a, b, c, d, z, sql1, a1, b1, c1, sql2
Dim a11, b11, c11, d11, e11, f11, g11, h11, i11, j11, k11
Dim a12, b12, c12, d12, e12, f12, g12, h12, i12, j12, k12
Dim a13, b13, c13, d13, e13, f13, g13, h13, i13, j13, k13, l13, m13, n13, o13, p13, q13
Dim a14, b14, c14, d14, e14, f14, g14, h14, i14, j14, k14, l14, m14, n14, o14, p14, q14
Dim a15, b15, c15, d15, e15, f15, g15, h15, i15, j15, k15, l15, m15, n15, o15, p15, q15
Dim a16, b16, c16, d16, e16, f16, g16, h16, i16, j16, k16, l16, m16, n16, o16, p16, q16
Dim strcn, cn
Dim is_SQL
Dim oRs, oRs1, oRs2
Dim By, Bm, Bd
Dim Ny, Nm, Nd
Dim MSFlexGrid2,Text2,Byear,Eyear,Bmon,Emon
Dim BeginDate, EndDate
Dim runnian,yushu,tian
Dim riBeginDate,riEndDate,rij,riz
Set Byear = ScreenItems("Byear")
Set Eyear = ScreenItems("Eyear")
Set Bmon = ScreenItems("Bmon")
Set Emon = ScreenItems("Emon")
Set Text2 = ScreenItems("Text2")
Set MSFlexGrid2 = ScreenItems("MSFlexGrid2")

a13 = 0
b13 = 0
c13 = 0
d13 = 0
e13 = 0
f13 = 0
g13 = 0
h13 = 0
i13 = 0
j13 = 0
k13 = 0
l13 = 0
m13 = 0
n13 = 0
o13 = 0
p13 = 0
q13 = 0

BeginDate = Byear.Text & "-" & Bmon.Text
EndDate = Eyear.Text & "-" & Emon.Text

If Byear.Text > Eyear.Text Or Byear.Text = Eyear.Text And Bmon.Text > Emon.Text Then
MsgBox "输入的时间不正确", vbOK, "错误的起始时间"
End If

Sql = "select convert(char(10),[riqi],120),avg(jscod),avg(cscod),avg(jsnh3n),avg(csnh3n),avg(jsph),avg(csph),max(jszll),max(cszll),max(sywnzll),max(gfj1yxsj),max(gfj2yxsj),max(gfj3yxsj),max(qwb1yxsj),max(qwb2yxsj),max(qwb3yxsj),max(tnj1yxsj),max(tnj2yxsj),min(jszll),min(cszll),min(sywnzll),min(gfj1yxsj),min(gfj2yxsj),min(gfj3yxsj),min(qwb1yxsj),min(qwb2yxsj),min(qwb3yxsj),min(tnj1yxsj),min(tnj2yxsj) from ribao where convert(char(7),[riqi],120) between '" & BeginDate & "' and'" & EndDate & "' group by convert(char(10),[riqi],120) order by 1"

strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist SecurityInfo=False;Initial Catalog=baobiao1;Data Source=.\wincc"
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = strcn
conn.CursorLocation = 3
conn.Open
'使用命令文本查询
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("mand")
mandType = 1
Set oCom.ActiveConnection = conn
mandText = Sql
Set oRs = oCom.Execute
n = oRs.RecordCount

If n = 0 Then
MsgBox "对不起,没有找到符合条件的数据", vbOK, "没有相关数据"
End If
oRs.Requery


MSFlexGrid2.Clear
MSFlexGrid2.Rows = oRs.RecordCount + 7
MSFlexGrid2.ColWidth(0) = 1100
MSFlexGrid2.ColWidth(1) = 820
MSFlexGrid2.ColWidth(2) = 820
MSFlexGrid2.ColWidth(3) = 820
MSFlexGrid2.ColWidth(4) = 820
MSFlexGrid2.ColWidth(5) = 820
MSFlexGrid2.ColWidth(6) = 820
MSFlexGrid2.ColWidth(7) = 820

MSFlexGrid2.ColWidth(8) = 820
MSFlexGrid2.ColWidth(9) = 820
MSFlexGrid2.ColWidth(10) = 820
MSFlexGrid2.ColWidth(11) = 820
MSFlexGrid2.ColWidth(12) = 820
MSFlexGrid2.ColWidth(13) = 820
MSFlexGrid2.ColWidth(14) = 820
MSFlexGrid2.ColWidth(15) = 820
MSFlexGrid2.ColWidth(16) = 820
MSFlexGrid2.ColWidth(17) = 820
MSFlexGrid2.ColWidth(18) = 820



MSFlexGrid2.Row = 0
For z = 0 To 17
MSFlexGrid2.Col = z
MSFlexGrid2.Text = "北京京禹阳水务有限公司月报表"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeRow(0) = True
MSFlexGrid2.Col = 0
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "日期"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(0) = True

MSFlexGrid2.Col = 1
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "进水COD(mg/l)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(1) = True

MSFlexGrid2.Col = 2
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "出水COD(mg/l)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(2) = True

MSFlexGrid2.Col = 3
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "进水氨氮(mg/l)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(3) = True

MSFlexGrid2.Col = 4
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "出水氨氮(mg/l)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(4) = True

MSFlexGrid2.Col = 5
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "进水PH"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(5) = True

MSFlexGrid2.Col = 6
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "出水PH"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(6) = True

MSFlexGrid2.Col = 7
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "进水总流量(m3)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(7) = True

MSFlexGrid2.Col = 8
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "出水总流量(m3)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(8) = True

MSFlexGrid2.Col = 9
For z = 1 To 2
MSFlexGrid2.Row = z
MSFlexGrid2.Text = "剩余污泥总流量(m3)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeCol(9) = True

MSFlexGrid2.Row = 1
For z = 10 To 12
MSFlexGrid2.Col = z
MSFlexGrid2.Text = "鼓风机运行时间(H)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeRow(1) = True

MSFlexGrid2.TextMatrix(2, 10) = "1#"
MSFlexGrid2.TextMatrix(2, 11) = "2#"
MSFlexGrid2.TextMatrix(2, 12) = "3#"

MSFlexGrid2.Row = 1
For z = 13 To 15
MSFlexGrid2.Col = z
MSFlexGrid2.Text = "潜污泵运行时间(H)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeRow(1) = True

MSFlexGrid2.TextMatrix(2, 13) = "1#"
MSFlexGrid2.TextMatrix(2, 14) = "2#"
MSFlexGrid2.TextMatrix(2, 15) = "3#"

MSFlexGrid2.Row = 1
For z = 16 To 17
MSFlexGrid2.Col = z
MSFlexGrid2.Text = "脱泥机运行时间(H)"

Next
MSFlexGrid2.MergeCells = 4
MSFlexGrid2.MergeRow(1) = True

MSFlexGrid2.TextMa

trix(2, 16) = "1#"
MSFlexGrid2.TextMatrix(2, 17) = "2#"

MSFlexGrid2.TextMatrix(oRs.RecordCount + 3, 0) = "最大值"
MSFlexGrid2.TextMatrix(oRs.RecordCount + 4, 0) = "最小值"
MSFlexGrid2.TextMatrix(oRs.RecordCount + 5, 0) = "平均值"
MSFlexGrid2.TextMatrix(oRs.RecordCount + 6, 0) = "累计值"

MSFlexGrid2.ColAlignment(0) = 4
MSFlexGrid2.ColAlignment(1) = 4
MSFlexGrid2.ColAlignment(2) = 4
MSFlexGrid2.ColAlignment(3) = 4
MSFlexGrid2.ColAlignment(4) = 4
MSFlexGrid2.ColAlignment(5) = 4
MSFlexGrid2.ColAlignment(6) = 4
MSFlexGrid2.ColAlignment(7) = 4
MSFlexGrid2.ColAlignment(8) = 4
MSFlexGrid2.ColAlignment(9) = 4
MSFlexGrid2.ColAlignment(10) = 4
MSFlexGrid2.ColAlignment(11) = 4
MSFlexGrid2.ColAlignment(12) = 4
MSFlexGrid2.ColAlignment(13) = 4
MSFlexGrid2.ColAlignment(14) = 4
MSFlexGrid2.ColAlignment(15) = 4
MSFlexGrid2.ColAlignment(16) = 4
MSFlexGrid2.ColAlignment(17) = 4

If (n > 0) Then
oRs.MoveFirst

i = 0
Do While Not oRs.EOF
i = i + 1
a = CStr(oRs.Fields(1).Value)
a = Int(a * 10 ^ 3 + 0.5) / (10 ^ 3)
b = CStr(oRs.Fields(2).Value)
b = Int(b * 10 ^ 3 + 0.5) / (10 ^ 3)
c = CStr(oRs.Fields(3).Value)
c = Int(c * 10 ^ 3 + 0.5) / (10 ^ 3)
'*****************************
a1 = CStr(oRs.Fields(4).Value)
a1 = Int(a1 * 10 ^ 3 + 0.5) / (10 ^ 3)
b1 = CStr(oRs.Fields(5).Value)
b1 = Int(b1 * 10 ^ 3 + 0.5) / (10 ^ 3)
c1 = CStr(oRs.Fields(6).Value)
c1 = Int(c1 * 10 ^ 3 + 0.5) / (10 ^ 3)
'********************************
a11 = CStr(oRs.Fields(7).Value)
a11 = Int(a11 * 10 ^ 3 + 0.5) / (10 ^ 3)
b11 = CStr(oRs.Fields(8).Value)
b11 = Int(b11 * 10 ^ 3 + 0.5) / (10 ^ 3)
c11 = CStr(oRs.Fields(9).Value)
c11 = Int(c11 * 10 ^ 3 + 0.5) / (10 ^ 3)
'********************************
d11 = CStr(oRs.Fields(10).Value)
d11 = Int(c11 * 10 ^ 3 + 0.5) / (10 ^ 3)
e11 = CStr(oRs.Fields(11).Value)
e11 = Int(c11 * 10 ^ 3 + 0.5) / (10 ^ 3)
f11 = CStr(oRs.Fields(12).Value)
f11 = Int(f11 * 10 ^ 3 + 0.5) / (10 ^ 3)
'********************************
g11 = CStr(oRs.Fields(13).Value)
g11 = Int(g11 * 10 ^ 3 + 0.5) / (10 ^ 3)
h11 = CStr(oRs.Fields(14).Value)
h11 = Int(h11 * 10 ^ 3 + 0.5) / (10 ^ 3)
i11 = CStr(oRs.Fields(15).Value)
i11 = Int(i11 * 10 ^ 3 + 0.5) / (10 ^ 3)
'********************************
j11 = CStr(oRs.Fields(16).Value)
j11 = Int(j11 * 10 ^ 3 + 0.5) / (10 ^ 3)
k11 = CStr(oRs.Fields(17).Value)
k11 = Int(k11 * 10 ^ 3 + 0.5) / (10 ^ 3)
'********************************
a12 = CStr(oRs.Fields(18).Value)
a12 = Int(a12 * 10 ^ 3 + 0.5) / (10 ^ 3)
b12 = CStr(oRs.Fields(19).Value)
b12 = Int(b12 * 10 ^ 3 + 0.5) / (10 ^ 3)
c12 = CStr(oRs.Fields(20).Value)
c12 = Int(c12 * 10 ^ 3 + 0.5) / (10 ^ 3)
'********************************
d12 = CStr(oRs.Fields(21).Value)
d12 = Int(d12 * 10 ^ 3 + 0.5) / (10 ^ 3)
e12 = CStr(oRs.Fields(22).Value)
e12 = Int(e12 * 10 ^ 3 + 0.5) / (10 ^ 3)
f12 = CStr(oRs.Fields(23).Value)
f12 = Int(f12 * 10 ^ 3 + 0.5) / (10

^ 3)
'********************************
g12 = CStr(oRs.Fields(24).Value)
g12 = Int(g12 * 10 ^ 3 + 0.5) / (10 ^ 3)
h12 = CStr(oRs.Fields(25).Value)
h12 = Int(h12 * 10 ^ 3 + 0.5) / (10 ^ 3)
i12 = CStr(oRs.Fields(26).Value)
i12 = Int(i12 * 10 ^ 3 + 0.5) / (10 ^ 3)
'********************************
j12 = CStr(oRs.Fields(27).Value)
j12 = Int(j12 * 10 ^ 3 + 0.5) / (10 ^ 3)
k12 = CStr(oRs.Fields(28).Value)
k12 = Int(k12 * 10 ^ 3 + 0.5) / (10 ^ 3)
'********************************

MSFlexGrid2.TextMatrix(i + 2, 0) = CStr(oRs.Fields(0).Value)
MSFlexGrid2.TextMatrix(i + 2, 1) = a
MSFlexGrid2.TextMatrix(i + 2, 2) = b
MSFlexGrid2.TextMatrix(i + 2, 3) = c
MSFlexGrid2.TextMatrix(i + 2, 4) = a1
MSFlexGrid2.TextMatrix(i + 2, 5) = b1
MSFlexGrid2.TextMatrix(i + 2, 6) = c1
MSFlexGrid2.TextMatrix(i + 2, 7) = a11 - a12
MSFlexGrid2.TextMatrix(i + 2, 8) = b11 - b12
MSFlexGrid2.TextMatrix(i + 2, 9) = c11 - c12
MSFlexGrid2.TextMatrix(i + 2, 10) = d11 - d12
MSFlexGrid2.TextMatrix(i + 2, 11) = e11 - e12
MSFlexGrid2.TextMatrix(i + 2, 12) = f11 - f12
MSFlexGrid2.TextMatrix(i + 2, 13) = g11 - g12
MSFlexGrid2.TextMatrix(i + 2, 14) = h11 - h12
MSFlexGrid2.TextMatrix(i + 2, 15) = i11 - i12
MSFlexGrid2.TextMatrix(i + 2, 16) = j11 - j12
MSFlexGrid2.TextMatrix(i + 2, 17) = k11 - k12
a13 = a13 + a
b13 = b13 + b
c13 = c13 + c
d13 = d13 + a1
e13 = e13 + b1
f13 = f13 + c1
g13 = g13 + a11 - a12
h13 = h13 + b11 - b12
i13 = i13 + c11 - c12
j13 = j13 + d11 - d12
k13 = k13 + e11 - e12
l13 = l13 + f11 - f12
m13 = m13 + g11 - g12
n13 = n13 + h11 - h12
o13 = o13 + i11 - i12
p13 = p13 + j11 - j12
q13 = q13 + k11 - k12
If (i = 1) Then
a14 = a
b14 = b
c14 = c
d14 = a1
e14 = b1
f14 = c1
g14 = a11 - a12
h14 = b11 - b12
i14 = c11 - c12
j14 = d11 - d12
k14 = e11 - e12
l14 = f11 - f12
m14 = g11 - g12
n14 = h11 - h12
o14 = i11 - i12
p14 = j11 - j12
q14 = k11 - k12

a15 = a
b15 = b
c15 = c
d15 = a1
e15 = b1
f15 = c1
g15 = a11 - a12
h15 = b11 - b12
i15 = c11 - c12
j15 = d11 - d12
k15 = e11 - e12
l15 = f11 - f12
m15 = g11 - g12
n15 = h11 - h12
o15 = i11 - i12
p15 = j11 - j12
q15 = k11 - k12
Else
If a14 > a Then
a14 = a
End If
If b14 > b Then
b14 = b
End If
If c14 > c Then
c14 = c
End If
If d14 > a1 Then
d14 = a1
End If
If e14 > b1 Then
e14 = b1
End If
If f14 > c1 Then
f14 = c1
End If
If g14 > (a11 - a12) Then
g14 = a11 - a12
End If
If h14 > (b11 - b12) Then
h14 = b11 - b12
End If
If i14 > (c11 - c12) Then
i14 = c11 - c12
End If
If j14 > (d11 - d12) Then
j14 = d11 - d12
End If
If k14 > (e11 - e12) Then
k14 = e11 - e12
End If
If l14 > (f11 - f12) Then
l14 = f11 - f12
End If

If m14 > (g11 - g12) Then
m14 = g11 - g12
End If
If n14 > (h11 - h12) Then
n14 = h11 - h12
End If
If o14 > (i11 - i12) Then
o14 = i11 - i12
End If

If p14 > (j11 - j12) Then
p14 = j11 - j12
End If
If q

14 > (k11 - k12) Then
q14 = k11 - k12
End If



If a15 < a Then
a15 = a
End If
If b15 < b Then
b15 = b
End If
If c15 < c Then
c15 = c
End If
If d15 < a1 Then
d15 = a1
End If
If e15 < b1 Then
e15 = b1
End If
If f15 < c1 Then
f15 = c1
End If
If g15 < (a11 - a12) Then
g15 = a11 - a12
End If
If h15 < (b11 - b12) Then
h15 = b11 - b12
End If
If i15 < (c11 - c12) Then
i15 = c11 - c12
End If
If j15 < (d11 - d12) Then
j15 = d11 - d12
End If
If k15 < (e11 - e12) Then
k15 = e11 - e12
End If
If l15 < (f11 - f12) Then
l15 = f11 - f12
End If

If m15 < (g11 - g12) Then
m15 = g11 - g12
End If
If n15 < (h11 - h12) Then
n15 = h11 - h12
End If
If o15 < (i11 - i12) Then
o15 = i11 - i12
End If

If p15 < (j11 - j12) Then
p15 = j11 - j12
End If
If q15 < (k11 - k12) Then
q15 = k11 - k12
End If
End If
oRs.MoveNext
Loop
End If


a13 = Int(a13 * 10 ^ 3 + 0.5) / (10 ^ 3)
b13 = Int(b13 * 10 ^ 3 + 0.5) / (10 ^ 3)
c13 = Int(c13 * 10 ^ 3 + 0.5) / (10 ^ 3)
d13 = Int(d13 * 10 ^ 3 + 0.5) / (10 ^ 3)
e13 = Int(e13 * 10 ^ 3 + 0.5) / (10 ^ 3)
f13 = Int(f13 * 10 ^ 3 + 0.5) / (10 ^ 3)
g13 = Int(g13 * 10 ^ 3 + 0.5) / (10 ^ 3)
h13 = Int(h13 * 10 ^ 3 + 0.5) / (10 ^ 3)
i13 = Int(i13 * 10 ^ 3 + 0.5) / (10 ^ 3)
j13 = Int(j13 * 10 + 0.5) / 10
k13 = Int(k13 * 10 + 0.5) / 10
l13 = Int(l13 * 10 + 0.5) / 10
m13 = Int(m13 * 10 + 0.5) / 10
n13 = Int(n13 * 10 + 0.5) / 10
o13 = Int(o13 * 10 + 0.5) / 10
p13 = Int(p13 * 10 + 0.5) / 10
q13 = Int(q13 * 10 + 0.5) / 10


a14 = Int(a14 * 10 ^ 3 + 0.5) / (10 ^ 3)
b14 = Int(b14 * 10 ^ 3 + 0.5) / (10 ^ 3)
c14 = Int(c14 * 10 ^ 3 + 0.5) / (10 ^ 3)
d14 = Int(d14 * 10 ^ 3 + 0.5) / (10 ^ 3)
e14 = Int(e14 * 10 ^ 3 + 0.5) / (10 ^ 3)
f14 = Int(f14 * 10 ^ 3 + 0.5) / (10 ^ 3)
g14 = Int(g14 * 10 ^ 3 + 0.5) / (10 ^ 3)
h14 = Int(h14 * 10 ^ 3 + 0.5) / (10 ^ 3)
i14 = Int(i14 * 10 ^ 3 + 0.5) / (10 ^ 3)
j14 = Int(j14 * 10 + 0.5) / 10
k14 = Int(k14 * 10 + 0.5) / 10
l14 = Int(l14 * 10 + 0.5) / 10
m14 = Int(m14 * 10 + 0.5) / 10
n14 = Int(n14 * 10 + 0.5) / 10
o14 = Int(o14 * 10 + 0.5) / 10
p14 = Int(p14 * 10 + 0.5) / 10
q14 = Int(q14 * 10 + 0.5) / 10

a15 = Int(a15 * 10 ^ 3 + 0.5) / (10 ^ 3)
b15 = Int(b15 * 10 ^ 3 + 0.5) / (10 ^ 3)
c15 = Int(c15 * 10 ^ 3 + 0.5) / (10 ^ 3)
d15 = Int(d15 * 10 ^ 3 + 0.5) / (10 ^ 3)
e15 = Int(e15 * 10 ^ 3 + 0.5) / (10 ^ 3)
f15 = Int(f15 * 10 ^ 3 + 0.5) / (10 ^ 3)
g15 = Int(g15 * 10 ^ 3 + 0.5) / (10 ^ 3)
h15 = Int(h15 * 10 ^ 3 + 0.5) / (10 ^ 3)
i15 = Int(i15 * 10 ^ 3 + 0.5) / (10 ^ 3)
j15 = Int(j15 * 10 + 0.5) / 10
k15 = Int(k15 * 10 + 0.5) / 10
l15 = Int(l15 * 10 + 0.5) / 10
m15 = Int(m15 * 10 + 0.5) / 10
n15 = Int(n15 * 10 + 0.5) / 10
o15 = Int(o15 * 10 + 0.5) / 10
p15 = Int(p15 *

10 + 0.5) / 10
q15 = Int(q15 * 10 + 0.5) / 10



MSFlexGrid2.TextMatrix(n + 3, 1) = a15
MSFlexGrid2.TextMatrix(n + 4, 1) = a14
MSFlexGrid2.TextMatrix(n + 3, 2) = b15
MSFlexGrid2.TextMatrix(n + 4, 2) = b14
MSFlexGrid2.TextMatrix(n + 3, 3) = c15
MSFlexGrid2.TextMatrix(n + 4, 3) = c14
MSFlexGrid2.TextMatrix(n + 3, 4) = d15
MSFlexGrid2.TextMatrix(n + 4, 4) = d14
MSFlexGrid2.TextMatrix(n + 3, 5) = e15
MSFlexGrid2.TextMatrix(n + 4, 5) = e14
MSFlexGrid2.TextMatrix(n + 3, 6) = f15
MSFlexGrid2.TextMatrix(n + 4, 6) = f14
MSFlexGrid2.TextMatrix(n + 3, 7) = g15
MSFlexGrid2.TextMatrix(n + 4, 7) = g14
MSFlexGrid2.TextMatrix(n + 3, 8) = h15
MSFlexGrid2.TextMatrix(n + 4, 8) = h14
MSFlexGrid2.TextMatrix(n + 3, 9) = i15
MSFlexGrid2.TextMatrix(n + 4, 9) = i14
MSFlexGrid2.TextMatrix(n + 3, 10) = j15
MSFlexGrid2.TextMatrix(n + 4, 10) = j14
MSFlexGrid2.TextMatrix(n + 3, 11) = k15
MSFlexGrid2.TextMatrix(n + 4, 11) = k14
MSFlexGrid2.TextMatrix(n + 3, 12) = l15
MSFlexGrid2.TextMatrix(n + 4, 12) = l14
MSFlexGrid2.TextMatrix(n + 3, 13) = m15
MSFlexGrid2.TextMatrix(n + 4, 13) = m14
MSFlexGrid2.TextMatrix(n + 3, 14) = n15
MSFlexGrid2.TextMatrix(n + 4, 14) = n14
MSFlexGrid2.TextMatrix(n + 3, 15) = o15
MSFlexGrid2.TextMatrix(n + 4, 15) = o14
MSFlexGrid2.TextMatrix(n + 3, 16) = p15
MSFlexGrid2.TextMatrix(n + 4, 16) = p14
MSFlexGrid2.TextMatrix(n + 3, 17) = q15
MSFlexGrid2.TextMatrix(n + 4, 17) = q14

a16 = Int(a13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
b16 = Int(b13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
c16 = Int(c13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
d16 = Int(d13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
e16 = Int(e13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
f16 = Int(f13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
g16 = Int(g13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
h16 = Int(h13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
i16 = Int(i13 * 10 ^ 3 + 0.5) / (n * 10 ^ 3)
j16 = Int(j13 * 10 + 0.5) / (n * 10)
k16 = Int(k13 * 10 + 0.5) / (n * 10)
l16 = Int(l13 * 10 + 0.5) / (n * 10)
m16 = Int(m13 * 10 + 0.5) / (n * 10)
n16 = Int(n13 * 10 + 0.5) / (n * 10)
o16 = Int(o13 * 10 + 0.5) / (n * 10)
p16 = Int(p13 * 10 + 0.5) / (n * 10)
q16 = Int(q13 * 10 + 0.5) / (n * 10)


Text2.Text = a13
MSFlexGrid2.TextMatrix(n + 6, 1) = a13
MSFlexGrid2.TextMatrix(n + 5, 1) = a16
MSFlexGrid2.TextMatrix(n + 6, 2) = b13
MSFlexGrid2.TextMatrix(n + 5, 2) = b16
MSFlexGrid2.TextMatrix(n + 6, 3) = c13
MSFlexGrid2.TextMatrix(n + 5, 3) = c16
MSFlexGrid2.TextMatrix(n + 6, 4) = d13
MSFlexGrid2.TextMatrix(n + 5, 4) = d16
MSFlexGrid2.TextMatrix(n + 6, 5) = e13
MSFlexGrid2.TextMatrix(n + 5, 5) = e16
MSFlexGrid2.TextMatrix(n + 6, 6) = f13
MSFlexGrid2.TextMatrix(n + 5, 6) = f16
MSFlexGrid2.TextMatrix(n + 6, 7) = g13
MSFlexGrid2.TextMatrix(n + 5, 7) = g16
MSFlexGrid2.TextMatrix(n + 6, 8) = h13
MSFlexGrid2.TextMatrix(n + 5, 8) = h16
MSFlexGrid2.TextM

atrix(n + 6, 9) = i13
MSFlexGrid2.TextMatrix(n + 5, 9) = i16
MSFlexGrid2.TextMatrix(n + 6, 10) = j13
MSFlexGrid2.TextMatrix(n + 5, 10) = j16
MSFlexGrid2.TextMatrix(n + 6, 11) = k13
MSFlexGrid2.TextMatrix(n + 5, 11) = k16
MSFlexGrid2.TextMatrix(n + 6, 12) = l13
MSFlexGrid2.TextMatrix(n + 5, 12) = l16
MSFlexGrid2.TextMatrix(n + 6, 13) = m13
MSFlexGrid2.TextMatrix(n + 5, 13) = m16
MSFlexGrid2.TextMatrix(n + 6, 14) = n13
MSFlexGrid2.TextMatrix(n + 5, 14) = n16
MSFlexGrid2.TextMatrix(n + 6, 15) = o13
MSFlexGrid2.TextMatrix(n + 5, 15) = o16
MSFlexGrid2.TextMatrix(n + 6, 16) = p13
MSFlexGrid2.TextMatrix(n + 5, 16) = p16
MSFlexGrid2.TextMatrix(n + 6, 17) = q13
MSFlexGrid2.TextMatrix(n + 5, 17) = q16

End Sub