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


  共有3563人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
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

 回到顶部