Foxtable(狐表)用户栏目专家坐堂 → [求助] 下拉菜单显示错误


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

主题:[求助] 下拉菜单显示错误

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
[求助] 下拉菜单显示错误  发帖心情 Post By:2014/2/8 14:23:00 [显示全部帖子]

如下命令,当”业务名称“和”机房名称“都有内容时,”光缆名称“的下拉菜单无法正常进行显示;问题是不是出在第二个IF。该怎么写才正确?

Dim l As WinForm.ComboBox = e.Form.Controls("业务名称")
Dim i As WinForm.ComboBox = e.Form.Controls("机房名称")

If l.Value > "" And i.Value = "" 
    e.Sender.ComboList = DataTables("光缆纤芯应用台帐表").GetComboListString("光缆名称","业务名称='" & l.Value & "'")
Else

If l.Value > "" And i.Value > "" 
    e.Sender.ComboList = DataTables("光缆纤芯应用台帐表").GetComboListString("光缆名称","业务名称='" & l.Value & "'" And "机房名称='" & i.Value & "'")
Else

If l.Value = "" And i.Value > "" 
    e.Sender.ComboList = DataTables("光缆纤芯应用台帐表").GetComboListString("光缆名称","机房名称='" & i.Value & "'")

Else
    e.Sender.ComboList = DataTables("光缆纤芯应用台帐表").GetComboListString("光缆名称")
End If

End If
End If

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2014/2/8 15:22:00 [显示全部帖子]

附件项目 存在以下几个错误,帮忙看看是什么问题 1、当”业务名称“和”机房名称“同时输入有内容时、再选择”光缆名称“下拉框时提示错误; 2、按下”撤销筛选“按钮时、系统提示错误并且整个系统无法进行操作;(有可能是和我在表BeforeSelChange事件中做的设置产生冲突),需要怎样处理? 3、我希望当所有的条件框中都没有录入内容时、提示“请输入查询条件”;如果任何条件框中任意组合有内容时就按照条件框中内容组合进行查询。 但是现在当所有条件框中都没有录入内容时、按下”查询“按钮时、系统提示错误并且整个系统无法进行操作;(有可能是和我在表BeforeSelChange事件中做的设置产生冲突),需要怎样处理?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部