以下这段代码谢谢菜单里面
错误提示：
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2016.7.29.1
错误所在事件：菜单,huiycz,Click
详细错误信息：
从字符串“[男_手机] = '11'”到类型“Boolean”的转换无效。
输入字符串的格式不正确。
代码如下：
'如果窗口:男生报名管理,没有打开,则打开窗口
If Forms("男生报名管理").opened = False Then
LockWindowUpdate(baseMainform.handle)
Forms("男生报名管理").open()
LockWindowUpdate(System.IntPtr.Zero)
With DataTables("男生报名管理_Tablebmnvsb") '设置分页加载,第一页(只要之前,男生报名管理,没有打开,就执行这段代码)
.LoadTop = 4
.LoadPage = 0
'设置.loadfilter加载条件语句
Select Case User.Type
Case UserTypeEnum.Developer,UserTypeEnum.Administrator '开发者\admin,可见,所有男生报名信息
.loadFilter = "[女_手机] = '" & huiysj.Text & "' or [男_手机] = '" & huiysj.Text & "' or [女_编号] = '" & huiybh.Text & "' or [男_编号] = '" & huiybh.Text & "'"
'如果填入的手机号是:男_手机,则为全局变量赋值
If "[男_手机] = '" & huiysj.Text & "'" Then
nanssjsjcd = huiysj.Text '全局变量:将填写的手机号,赋值给:男生手机数据传递
huiyxbpd = 1 '全局变量:1,表示男生
End If
Case UserTypeEnum.User
Select Case User.Group
Case "红娘客服" '红娘客服,可见,自己的男生报名信息
.loadFilter = "[红娘登录名_客服] = '" & user.name & "' And ([女_手机] = '" & huiysj.Text & "' or [男_手机] = '" & huiysj.Text & "' or [女_编号] = '" & huiybh.Text & "' or [男_编号] = '" & huiybh.Text & "')"
'如果填入的手机号是:男_手机,则为全局变量赋值
If "[男_手机] = '" & huiysj.Text & "'" Then
nanssjsjcd = huiysj.Text '全局变量:将填写的手机号,赋值给:男生手机数据传递
huiyxbpd = 1 '全局变量:1,表示男生
End If
Case Else '其他组,不可见
.loadFilter = ""
End Select
End Select
.Load()
End With
ElseIf Forms("男生报名管理").opened = True Then
With DataTables("男生报名管理_Tablebmnvsb") '设置分页加载,第一页(只要之前,男生报名管理,打开了,就执行这段代码)
.LoadTop = 4
.LoadPage = 0
'设置.loadfilter加载条件语句
Select Case User.Type
Case UserTypeEnum.Developer,UserTypeEnum.Administrator '开发者\admin,可见,所有男生报名信息
.loadFilter = "[女_手机] = '" & huiysj.Text & "' or [男_手机] = '" & huiysj.Text & "' or [女_编号] = '" & huiybh.Text & "' or [男_编号] = '" & huiybh.Text & "'"
'如果填入的手机号是:男_手机,则为全局变量赋值
If "[男_手机] = '" & huiysj.Text & "'" Then
nanssjsjcd = huiysj.Text '全局变量:将填写的手机号,赋值给:男生手机数据传递
huiyxbpd = 1 '全局变量:1,表示男生
End If
Case UserTypeEnum.User
Select Case User.Group
Case "红娘客服" '红娘客服,可见,自己的男生报名信息
.loadFilter = "[红娘登录名_客服] = '" & user.name & "' And ([女_手机] = '" & huiysj.Text & "' or [男_手机] = '" & huiysj.Text & "' or [女_编号] = '" & huiybh.Text & "' or [男_编号] = '" & huiybh.Text & "')"
'如果填入的手机号是:男_手机,则为全局变量赋值
If "[男_手机] = '" & huiysj.Text & "'" Then
nanssjsjcd = huiysj.Text '全局变量:将填写的手机号,赋值给:男生手机数据传递
huiyxbpd = 1 '全局变量:1,表示男生
End If
Case Else '其他组,不可见
.loadFilter = ""
End Select
End Select
.Load()
End With
End If
加好友 
发短信
Post By：2017/1/20 14:20:00 [只看该作者]
