请老师看一下这代码哪里出了问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim bok As New XLS.Book(ProjectPath & "Attachments\路缘石质量检验评定表_汇总_模板.xlsx")

Dim sht As XLS.Sheet = Bok.Sheets(0)

Dim kxs As List(of String) = DataTables("路缘石检查数据").GetValues("公里桩")

Dim buwei() As String = {"右侧" , "左侧"}

Dim shtrow() As Integer= {7,11,13}

For ix As Integer = 0 To kxs.Count-1

For bw As Integer = 0 To 1

For Index As Integer = 0 To 2

Dim xcs As List (of DataRow) = DataTables("路缘石检查数据").Select("[工程部位] = '" & buwei(bw) & " 'And [项次] = '" & Index+1 & "' And [公里桩] = '" & kxs(ix) & " ' ")

If xcs.Count > 0 Then

For i0 As Integer = 0 To xcs.Count-1

Dim cov As Double

Double.TryParse(xcs(i0)("数据内容"),cov)

If i0 <= 9 Then

sht(shtrow(Index),8+i0).Value = cov

ElseIf i0 > 9 And i0 <= 19 Then

sht(shtrow(Index)+1,8+(i0-10)).Value = cov

ElseIf i0 > 19 Then

Exit For

End If

sht(3,5).Value = "工程部位:" & buwei(bw)

sht(3,2).Value = kxs(ix)

Bok.Save(ProjectPath & "Reports\LYJC_" & kxs(ix) & "_" & buwei(bw) & ".xlsx")

End If

以上代码，如果不加入标红部分的循环，直接输入固定值，则最后生成的EXCLE文件正确。

若加入以上循环，最后生成的EXCEL就会把其他{公里桩}的数据也插入到最后生成的文件中。

主题：请老师看一下这代码哪里出了问题