求助，输入车次后如何输入对应车次的车站名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

表a_Click

Dim i As Integer
Dim Values As String
Dim dr As DataRow

dr = DataTables("车次").Find("车次 = " & "'" & Tables("表A").Current("车次") & "'" )

If dr IsNot Nothing
    Dim wz As Integer = Tables("车次").FindRow(dr)
    If wz >= 0 Then
        Tables("车次").Position = wz
    End If

    For i=1 To Tables("车次").Cols.Count-1
        If Tables("车次").Current(Tables("车次").Cols(i).Name) >"" Then
            Values = Values & Tables("车次").Current(Tables("车次").Cols(i).Name) &"|"
        End If
    Next
    Tables("表A").Cols("终到站").ComboList= Values
End If

[此贴子已经被作者于2012-7-6 1:12:02编辑过]

主题：求助，输入车次后如何输入对应车次的车站名