错误所在事件：加载[上传]失败!
详细错误信息：
在应使用条件的上下文(在 ')' 附近)中指定了非布尔类型的表达式。
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
加好友 
发短信
Post By：2018/7/30 15:14:00 [只看该作者]
