- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义录入界面之四应用求助！！！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102688)
-- 发布时间：2017/6/23 20:57:00
-- 自定义录入界面之四应用求助！！！
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("B_Table1")
Dim dj As WinForm.TextBox = Forms("1-A记录").Controls("TextBox-danjia")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("批号")
Tables("A记录").Current("规格") = tbl.current("规格型号")
Tables("A记录").Current("数量") = tbl.current("实收数量")
End If
If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
e.Form.DropTable.FinishEditing()
Else \'如果是通过窗口下拉的
MessageBox.Show(1)
e.Form.DropDownBox.WriteValue()
End If
End If
代码这样写后 可以执行 但不填写 下拉列表框 了 “批号” 字段，其他字段填写正确！~
这是什么问题？ 不能这样用？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口4.foxdb |
[此贴子已经被作者于2017/6/24 16:30:24编辑过]
-- 发布时间：2017/6/23 21:48:00
--
我测试帮助示例没有问题。是不是有其它事件代码影响了。上传实例看看
-- 发布时间：2017/6/24 15:09:00
--
我是在帮助实例的基础上添加了 自定义录入界面之三 中的 选择多列数据 同时填入当前表中的代码 Tables("A记录").Current("数量") = tbl.current("实收数量") 没有这个代码运行就正常！！！
-- 发布时间：2017/6/24 15:22:00
--
"数量"列变化会触发什么事件吗
-- 发布时间：2017/6/24 15:52:00
--
我把文件发到上面了，您给看看！
-- 发布时间：2017/6/24 16:16:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:窗口4.foxdb |
-- 发布时间：2017/6/24 16:34:00
--
改过数据库连接了，不好意思！！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:窗口4.foxdb |
-- 发布时间：2017/6/24 16:55:00
--
一样的用法，看懂6楼用法
-- 发布时间：2017/6/24 17:02:00
--
我这里测试还不不行的，新增加行，还是不填入数据！！！！
-- 发布时间：2017/6/24 17:26:00
--
我测试没有问题