表1：航班号；启止港……

ori1998

lwmxr,这里让给你

[此贴子已经被作者于2004-4-8 13:12:15编辑过]

土豆

“固定格式的单一窗体中”看不明白
“用字段B的值替换字段A的值”看明白了，但是"用字段B名替换字段A名"又看不明白了
“窗体中列表选择同一个表中的字段A和字段B”这个还是看不大明白

lwmxr

表1：航班号；启止港……
表2：航班号；启止港
自动窗体“表1”的控件“航班号”输入后，如何使其控件“启止港”自动添入表2对应“启止港”？？？
清高手指教！

土豆

看起来表1和表2结构相同么，为什么要分成两个表？

lwmxr

表1中字段长着呢，引用表2提高输入速度罢了。

Ajoe

　　方法1：
　　利用组合框的“更新后”事件，如果你刚接触Access，你可以去看一看Alex的组合框教程。可以使用组合框的“更新后”事件，把组合框中第几列的内容传递给窗体中的任一字段。例：
Me.字段名 = Me.组合框名.Column(0)       意思是—把组合框中第一列的数据传递给窗体中的某个字段控件。
　　方法2：
　　你可以用子窗体，因为设置了相互连接的字段后，子窗体中相同的字段在新增一行数据的时候会自动填写相应的内容。

lwmxr

我的有关主题在 http://www.erpbus.net/access/topic.asp?topic_id=11523&forum_id=72
请帮我调试，（数据总表_子窗体中“启止港”该为“文本框”）点选航班号后，“启止港”自动填入……谢谢！
我试过第一种方法，但控件来源不能与表链接……请指教！

Ajoe

　　第一步：把“启止港”字段的组合框改为文本框；
　　第二步：改动一下“航班号”组合框的相关设置：
　　1、“行来源”在你原来的基础上再增加一个字段“启止港”；
　　2、“列数”改为：2
　　3、“列宽”改为：4.577;0
　　4、“列表宽度”改为：4.577
　　第三步：设置“航班号”组合框的“更新后”事件（代码如下）：
Private Sub 航班号_AfterUpdate()
    Me.启止港 = Me.航班号.Column(1)
End Sub

请看实例：

lwmxr

Ajoe:谢谢你！
初步实现。但 再多一些文本框如何付值？
如：Me.航空公司 = ？？？
我是一个不懂代码的人，我作库几乎是”拼凑“，麻烦你了！

Ajoe

设置好组合框的“行来源”，然后再在组合框的“更新后”事件里输入如下代码：
Private Sub 航空公司_AfterUpdate()
    Me.启止港= Me.航空公司.Column(1)
End Sub