| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 不能正常传递值？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=122648) |
| -- 作者：huhu -- 发布时间：2018/7/30 15:14:00 -- 不能正常传递值？ 错误所在事件：加载[上传]失败! 详细错误信息： 在应使用条件的上下文(在 \')\' 附近)中指定了非布尔类型的表达式。 Dim zlmk As WinForm.ComboBox = e.Form.Controls("ComboBox1") Dim str As String Select Case Vars("dep") Case "技术服务部" str = "技术服务部 = \'周银河\'" Case "财务部" str = "财务部 = \'王殿章\'" Case "综合管理部" str = "综合管理部 = \'李建生\'" End Select msgbox(str)----弹出技术服务部 = \'周银河\' If zlmk.text = "质量数据" Then msgbox(1)---弹出1 Dim str1 As String = "质量数据 = 1 and str" Tables("审批加载_table1").DataTable.LoadFilter = "质量数据 = 1 and str" Tables("审批加载_table1").DataTable.Load msgbox(str1)------它竟然弹出的是质量数据 = 1 and str 而非质量数据 = 1 and 技术服务部 = \'周银河\' msgbox(2)----弹出2 End If |
| -- 作者：有点甜 -- 发布时间：2018/7/30 15:28:00 -- Tables("审批加载_table1").DataTable.LoadFilter = "质量数据 = 1 and " & str |