主题：请教需要这样的功能用代码可以实现吗？如何实现？

Dim n1,n2,Tj,T As String
Dim Row,n,i As Integer
Dim tb1,tb2 As Table
tb1 = Tables("表A")
tb2 = Tables("表A.表B")
tb1.Filter = "路名 is not null"

for Row = 0 to tb1.Rows.count-1
    tb1.Select(row,0)
    Tj = "路名 ='" & tb1.rows(row)("路名") & "' and 状态 = '在用'"
    n1 = tb2.Compute("min(房)",Tj)
    n2 = tb2.Compute("max(房)",Tj)
    if val(n2) > val(n1) AndAlso val(n1) > 0 then
        tb2.Redraw = False
        For n = n1.substring(0,1) to n2.substring(0,1)
            For i = 1 to 4
                T =  n & "0" & i
                if T <> n1 AndAlso T <> n2 Then
                    Dim r As  Row = tb2.addnew
                    r("房") = T
                    r("状态") ="虚拟"
                end if
            Next           
        Next       
        tb2.Redraw = true
    end if
Next

如最小房号204，最大房号401时，生成什么房号吗？

205，206，207，398，399，400？

最小房号204，最大房号401时，生成如下，哪里不对？
201 虚拟
202 虚拟
203 虚拟
301 虚拟
302 虚拟
303 虚拟
304 虚拟
402 虚拟
403 虚拟
404 虚拟

哦，那203　至　408生成什么？208　至　402又生成什么？

Dim n1,n2,Tj,T As String
Dim Row,n,i,max,min As Integer
Dim tb1,tb2 As Table
tb1 = Tables("表A")
tb2 = Tables("表A.表B")
tb1.Filter = "路名 is not null"

for Row = 0 to tb1.Rows.count-1
    tb1.Select(row,0)
    Tj = "路名 ='" & tb1.rows(row)("路名") & "' and 状态 = '在用'"
    n1 = tb2.Compute("min(房)",Tj)
    n2 = tb2.Compute("max(房)",Tj)
    min = Math.Min(val(n1.substring(1)),val(n2.substring(1)))+1
    max = Math.Max(val(n1.substring(1)),val(n2.substring(1)))-1
   
    if val(n2) > val(n1) AndAlso val(n1) > 0 then
        tb2.Redraw = False
        For n = n1.substring(0,1) to n2.substring(0,1)
            For i = min to max
                T =  n & "0" & i            
                    Dim r As  Row = tb2.addnew
                    r("房") = T
                    r("状态") ="虚拟"            
            Next
        Next
        tb2.Redraw = true
    end if
Next

如下无法达标,俺也没辙了.
Dim Row,n,i,max,min As Integer
Dim n1,n2,Zy,T As String
Dim tb1,tb2 As Table
Dim r,r1,r2 as row

tb1 = Tables("表A")
tb2 = Tables("表A.表B")
tb1.Filter = "路名 is not null"

With DataTables("表B").DataCols
    If .Contains("Y") = False Then
        .Add("Y", GetType(Integer),"SubString([房],2,2)")
    End If
    for Row = 0 to tb1.Rows.count-1
        tb1.Select(row,0)
        r = tb1.Rows(Row)
       for each r1 in tb2.rows
          zy =zy & "|" & r1("房")
       Next
        n1 = tb2.Compute("min(房)")
        n2 = tb2.Compute("max(房)")
        min = tb2.Compute("min(Y)")
        max = tb2.Compute("max(Y)")
        if val(n2) > val(n1) AndAlso val(n1) > 0 then
            tb2.Redraw = False
            For n = n1.substring(0,1) to n2.substring(0,1)
                For i = min to max
                    T =  n & "0" & i                 
                    if Zy.IndexOf(T) = -1 then
                       r2 = tb2.addnew
                       r2("房") = T
                       r2("状态") ="虚拟"
                    end if
                Next
            Next
            tb2.Redraw = true
        end if
    Next
    .Delete("Y")
End with

可想而知:你没看26楼代码.另如你一开始就清楚明白说出要求,问题早就解决了,何需如此时日!

Dim Row,n,n1,n2,i,max,min As Integer
Dim Zy,T As String
Dim tb1,tb2 As Table
Dim r,r1,r2 as row

tb1 = Tables("表A")
tb2 = Tables("表A.表B")
tb1.Filter = "路名 is not null"

With DataTables("表B").DataCols
    If .Contains("层") = False  AndAlso .Contains("房号") = False Then
        .Add("层", GetType(Integer),"SubString([房],1,Len([房])-2)")
        .Add("房号", GetType(Integer),"SubString([房],Len([房])-1,2)")
    End If
    for Row = 0 to tb1.Rows.count-1
        tb1.Select(row,0)
        r = tb1.Rows(Row)
       for each r1 in tb2.rows
          zy =zy & "|" & r1("房")
       Next
        n1 = tb2.Compute("min(层)")
        n2 = tb2.Compute("max(层)")
        min = tb2.Compute("min(房号)")
        max = tb2.Compute("max(房号)")
        if n2 > n1 AndAlso n1 > 0 then
            tb2.Redraw = False
            For n = n1 to n2
                For i = min to max
                    T =  n & format(i,"00")                 
                    if Zy.IndexOf(T) = -1 then
                       r2 = tb2.addnew
                       r2("房") = T
                       r2("状态") ="虚拟"
                    end if
                Next
            Next
            tb2.Redraw = true
        end if
    Next
    .Delete("房号")
    .Delete("层")
End with