上传的项目要带上你的数据库,不然别人无法测试。
如果用【自定义录入界面之二】,那就在doubleclick事件处理即可
4、将Table控件的DoubleClick事件设置为:
Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户ID")
e.Form.DropTable.Current("第一列") = tbl.Current("第一列")
e.Form.DropTable.Current("第二列") = tbl.Current("第二列")
End If
e.Form.DropDownBox.CloseDropDown()