- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]客户名称突然消失，如何解决 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=103566)
-- 发布时间：2017/7/11 17:33:00
-- [求助]客户名称突然消失，如何解决
由于无法上传视频，只好放在云盘里
[此贴子已经被作者于2017/7/11 17:34:56编辑过]
-- 发布时间：2017/7/11 17:35:00
--
此主题相关图片如下：捕获.jpg
-- 发布时间：2017/7/11 17:37:00
--
不会无缘无故消失的，肯定有其它代码影响到了
-- 发布时间：2017/7/11 17:55:00
--
会不会是这个原因：
http://www.foxtable.com/webhelp/scr/2436.htm
不行就做个例子发上来吧
-- 发布时间：2017/7/19 11:26:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新建文件夹.rar |
[此贴子已经被作者于2017/7/19 11:26:20编辑过]
-- 发布时间：2017/7/19 14:57:00
--
DoubleClick事件
Dim tbl As Table = Tables("客户设置_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户编码")
Forms("小票录入").Controls("DropBox1").value = tbl.Current("客户编码")
Forms("小票录入").Controls("DropBox1").WriteValue
Forms("小票录入").Controls("TextBox2").Value = tbl.Current("客户名称")
Forms("小票录入").Controls("TextBox2").WriteValue
End If
e.Form.DropDownBox.CloseDropDown()