利用窗口录入数据时，如何在下拉列表中选择某一项后，该项的其它就自动填充其等录项？

 １、案例

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:学校管理系统.rar

２、其它切图

此主题相关图片如下：培训信息表qq截图未命名.png

 Dim tr As Row = Tables("peixundendi").Current
    Dim dr As Row = Tables("peixun_xx").current
            tr("培训类型") = dr("培训类型")
            tr("培训级别") = dr("培训级别")
            tr("培训时间") = dr("培训时间")
            tr("培训地点") = dr("培训地点")
            tr("培训单位或文号") = dr("培训单位或文号")
            tr("培训内容") = dr("培训内容")
            tr("学习时数") = dr("培训学时")

增加其他附件时，出错是何原因？

Microsoft OLE DB Provider for SQL Server 错误 \'80040e57\'

参考：

http://www.foxtable.com/help/topics/1458.htm

http://www.foxtable.com/help/topics/1459.htm