| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 自动输入 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161147) |
| -- 作者：dycwylb -- 发布时间：2021/3/8 10:55:00 -- 自动输入 4、将Table控件的DoubleClick事件设置为： Dim tbl
As
Table =
Tables("窗口1_Table1") 这样在窗口的Table中双击某行，即可将该行的客户ID输入到订单表的当前行中，并关闭下拉窗口。 e.Form.DropDownBox.Value = tbl.Current("客户ID") 这行代码不理解 另见附件照片，双击下拉窗口中行内容输入不到表中，帮忙看看代码，谢谢 |
| -- 作者：有点蓝 -- 发布时间：2021/3/8 11:05:00 -- tbl.Current("客户ID")就是当前双击的行的客户ID，e.Form.DropDownBox就是打开这个下拉窗口的DropDownBox控件 这句代码意思就是给这个控件赋值 |
| -- 作者：dycwylb -- 发布时间：2021/3/8 11:19:00 -- 另见附件照片，双击下拉窗口中行内容输入不到表中，帮忙看看代码，谢谢 |
| -- 作者：有点蓝 -- 发布时间：2021/3/8 11:42:00 -- 将Table控件的DoubleClick事件设置为： e.Form.DropDownBox.Value = e.row("客户ID") e.Form.DropDownBox.WriteValue() e.Form.DropDownBox.CloseDropDown() |
| -- 作者：dycwylb -- 发布时间：2021/3/8 11:49:00 -- 例如：选中下拉窗口中异丙醇这一行，要把物料代码，品名，单位，数量等信写入申购单名细表中 |
| -- 作者：有点蓝 -- 发布时间：2021/3/8 11:56:00 -- Tables("申购单名细").Current("物料代码") = e.row("物料代码") e.Form.DropDownBox.Value = e.row("客户ID") e.Form.DropDownBox.WriteValue() e.Form.DropDownBox.CloseDropDown() |
| -- 作者：dycwylb -- 发布时间：2021/3/8 13:24:00 -- Dim tbl As Table = Tables("物料基本信息下拉窗口_物料基本信息表") If tbl.Current IsNot Nothing Then Tables("申购单明细").Current("物料名称") = tbl.Current("物料名称") Tables("申购单明细").Current("规格") = tbl.Current("规格") Tables("申购单明细").Current("库存数量") = tbl.Current("当前结存数量") Tables("申购单明细").Current("单位") = tbl.Current("单位") Tables("申购单明细").Current("是否需检验") = tbl.Current("是否检验") End If e.Form.DropDownBox.Value = e.Row("物料编号") e.Form.DropDownBox.WriteValue() e.Form.DropDownBox.CloseDropDown() 你好！以上代码是否错，在下拉窗口表控件双击事件中，但只只有物料编号可以写入申购明细物料代码中
|
| -- 作者：dycwylb -- 发布时间：2021/3/8 13:27:00 -- 第一张单，明细的第一条记录正常，但明细第二条记录只能写入物料编号 |
| -- 作者：dycwylb -- 发布时间：2021/3/8 13:58:00 -- 老师你好。可以测试一下我发给你的项目实例中申购单录入 |
| -- 作者：有点蓝 -- 发布时间：2021/3/8 14:23:00 -- 实例在哪？请上传实例说明 |