Foxtable(狐表)用户栏目专家坐堂 → 自定义录入界面三问题,请教老师们


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

主题:自定义录入界面三问题,请教老师们

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


加好友 发短信
等级:四尾狐 帖子:824 积分:6288 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/1/9 21:55:00 [只看该作者]

好了,最后将代码改成这样

Dim txt As String = e.Form.DropDownBox.Text
Dim dr As Row = Tables("订单明细").current
Dim tbl As Table = Tables("客户产品下拉窗口_Table1")
If txt = "" Then
    Tables("客户产品下拉窗口_Table1").Filter = "客户姓名 = '" & dr("客户姓名") & "'"
Else
    txt = "'*" & txt & "*'"
    tbl.Filter =  "客户姓名 = '" & dr("客户姓名") & "' Or 产品名称 Like " & txt
End If
e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

 

实现了想要的功能了,感谢林总跟布莱克朱老师,

 

学生愚钝再请教下这行代码,"客户姓名 = '" & dr("客户姓名") & "' Or 产品名称 Like " & txt  中为什么用or来连接呢?而不是用And? 还望老师赐教

 

帮助文件中的的解说看了很长时间了看不明白,能否用通俗的词概括下

And 逻辑与,如果左右表达式的值都为True,则返回True,否则返回False
AndAlso 逻辑与,如果左右表达式的值都为True,则返回True,否则返回False
Or 逻辑或,如果左右表达式的值至少有一个True,则返回True,否则返回False
OrElse 逻辑或,如果左右表达式的值至少有一个True,则返回True,否则返回False

 


 回到顶部
总数 19 1 2 下一页