专家坐堂-[求助]帮诊断一下代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim dtb03 As DataTable
Dim dtc02 As DataTable
Dim cmdb03 As New SQLCommand
Dim cmdc02 As New SQLCommand
cmdb03.C
cmdc02.C
cmdb03.CommandText = "Select 前缀, Max(项目财务ID) As 项目财务ID Fr om {B03_项目信息} Group By 前缀"
cmdc02.CommandText = "Select 前缀, Max(收据ID) As 收据ID Fr om {C02_业务收支} Group By 前缀"
dtb03 = cmdb03.ExecuteReader
dtc02 = cmdc02.ExecuteReader
b03bhs.Clear()
For Each drb03 As DataRow In dtb03.DataRows
    Dim qz1 As String = drb03("前缀") \'编号前缀
    Dim bh1 As String = drb03("项目财务ID")
    Dim id1 As Integer
    If bh1.Length = 12 Then
        bh1 = bh1.SubString(7)
        If Integer.TryParse(bh1,id1) Then
            b03bhs.Add(qz1, id1)
        End If
    End If
Next
c02bhs.Clear()
For Each drc02 As DataRow In dtc02.DataRows
    Dim qz2 As String = drc02("前缀") \'编号前缀
    Dim bh2 As String = drc02("收据ID")
    Dim id2 As Integer
    If bh2.Length = 12 Then
        bh2 = bh2.SubString(7)
        If Integer.TryParse(bh2,id2) Then
            b03bhs.Add(qz2, id2)
        End If
    End If
Next