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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，输入车次后如何输入对应车次的车站名

共有8744人关注过本帖树形打印复制链接主题：求助，输入车次后如何输入对应车次的车站名

微笑烛光

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：4 积分：96 威望：0 精华：0 注册：2012/7/5 21:00:00

求助，输入车次后如何输入对应车次的车站名 发帖心情

Post By：2012/7/5 21:44:00 [只看该作者]

Post By：2012-7-5 21:34:00 [只看该作者]

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

如附图1

第二张表，

如附图2

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

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

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

sunbrain

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：383 积分：2439 威望：0 精华：0 注册：2011/12/3 22:19:00

Post By：2012/7/5 23:22:00 [只看该作者]

表a_DataColChanged

If e.DataCol.Name = "车次" Then

Dim dr As DataRow

dr = DataTables("车次表").Find("车次 = " & "'" & e.DataRow("车次") & "'" )

If dr IsNot Nothing

e.DataRow("终到站")= dr("终到站")

End If

好好看看帮助吧

sloyy

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2193 积分：13926 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2012/7/6 0:59:00 [只看该作者]

表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编辑过]

微笑烛光

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：4 积分：96 威望：0 精华：0 注册：2012/7/5 21:00:00

Post By：2012/7/8 20:06:00 [只看该作者]

谢谢指点！

下一主题 >> << 上一主题

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