主题：求助！

我想设计一个火车piao输入的视表，现有两张表，第一张

 

我想设计一个火车piao输入的视表，现有两张表，第一张

如附图1

第二张表，

如附图2

怎样在第一张表输入“车次”后，在第一张表的“终到站”一列里出现对应车次的所有车站的列表。

 

此主题相关图片如下：b1.png


此主题相关图片如下：b2.jpg

表A 的 PrepareEdit事件:
If e.Col.Name = "终到站" Then
    Dim cz As String
    Dim dr As DataRow = DataTables("车次").Find("[车次] = '" & e.Row("车次") & "'")
    If dr IsNot Nothing Then
        For i As Integer = 1 To DataTables("车次").DataCols.Count - 1
            cz = dr(DataTables("车次").DataCols(i).Name) & "|"
        Next
    End If
    cz = cz.Trim("|")
    e.Col.Combolist = cz
End If

ahbzczy兄的代码没问题，但是事件不对，应该设置在AFterEdit事件中。