主题：录入娄据时如何在下拉列表中选项中其它项自动录入

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

 １、案例

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

点击浏览该文件:学校管理系统.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'