Foxtable(狐表)用户栏目专家坐堂 → 根据 帮助设计的下拉录入窗口 在表中数据数据就报错


  共有1661人关注过本帖树形打印复制链接

主题:根据 帮助设计的下拉录入窗口 在表中数据数据就报错

帅哥哟,离线,有人找我吗?
ruan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:4854 威望:0 精华:0 注册:2011/8/20 18:40:00
根据 帮助设计的下拉录入窗口 在表中数据数据就报错  发帖心情 Post By:2017/12/16 8:45:00 [显示全部帖子]

根据 帮助 自定义录入界面之三 设计的下拉录入窗口 在表中数据数据 KeyPressEdit事件 就报错


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171216083111.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171216083119.png
图片点击可在新窗口打开查看




图片点击可在新窗口打开查看此主题相关图片如下:qq截图20171216083134.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/12/16 8:48:03编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ruan
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:4854 威望:0 精华:0 注册:2011/8/20 18:40:00
  发帖心情 Post By:2017/12/16 12:55:00 [显示全部帖子]

KeyPressEdit事件代码 
If e.Col.Name = "产品编号" Then  
    If e.Col.DroppedDown = False 
        e.Col.OpenDropDown()  
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
ruan
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:4854 威望:0 精华:0 注册:2011/8/20 18:40:00
  发帖心情 Post By:2017/12/16 14:21:00 [显示全部帖子]

KeyPressEdit事件代码 
If e.Col.Name = "产品编号" Then  
    If e.Col.DroppedDown = False 
        e.Col.OpenDropDown()  
    End If
End If


 回到顶部
帅哥哟,离线,有人找我吗?
ruan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:4854 威望:0 精华:0 注册:2011/8/20 18:40:00
  发帖心情 Post By:2017/12/19 9:19:00 [显示全部帖子]

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables(e.Form.Name & "_Table1")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "'%" & txt & "%'"
    tbl.Filter = "产品编号 Like " & txt
End If
 
e.Form.DropDownBox.Select()  '将输入焦点返回下拉列表框


就是按 帮助里的内容也会报错 第一次在表中输入数据就会出错 关闭错误提示 第二次就不会了!
[此贴子已经被作者于2017/12/19 9:19:27编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
ruan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:463 积分:4854 威望:0 精华:0 注册:2011/8/20 18:40:00
  发帖心情 Post By:2017/12/20 10:03:00 [显示全部帖子]

AfterLoad 事件是空的 没有代码

Table 名字改了 刚开始可以过一会又一样了 还是会出错!

 回到顶部