- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=21223)
-- 发布时间：2012/7/5 21:23:00
-- 求助！
我想设计一个火车票输入的视表，现有两张表，第一张
-- 发布时间：2012/7/5 21:34:00
--
第二张表，
如附图2
怎样在第一张表输入“车次”后，在第一张表的“终到站”一列里出现对应车次的所有车站的列表。
此主题相关图片如下：b1.png
此主题相关图片如下：b2.jpg
-- 发布时间：2012/7/5 22:00:00
--
表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
[此贴子已经被作者于2012-7-5 22:00:32编辑过]
-- 发布时间：2012/7/6 8:16:00
--
ahbzczy兄的代码没问题，但是事件不对，应该设置在AFterEdit事件中。
[此贴子已经被作者于2012-7-6 8:16:59编辑过]