Dim i As Integer
flxErrRange.row = 0
For i = 1 To 1
flxErrRange.TextArray(Fgi(flxErrRange, 0, i)) = "电压(U%)"
flxErrRange.FixedAlignment(i) = 4
flxErrRange.Col = i
Next
For i = 2 To 2
flxErrRange.TextArray(Fgi(flxErrRange, 0, i)) = "电流(I%)"
flxErrRange.FixedAlignment(i) = 4
flxErrRange.Col = i
Next
For i = 3 To 3
flxErrRange.TextArray(Fgi(flxErrRange, 0, i)) = "走字相位"
flxErrRange.FixedAlignment(i) = 4
flxErrRange.Col = i
Next
For i = 4 To 4
flxErrRange.TextArray(Fgi(flxErrRange, 0, i)) = "走字量值"
flxErrRange.FixedAlignment(i) = 4
flxErrRange.Col = i
Next