以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  从字符串“[男_手机] = '11'”到类型“Boolean”的转换无效  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=95467)
--  作者：zhangjian222200
--  发布时间：2017/1/20 14:20:00
--  从字符串“[男_手机] = '11'”到类型“Boolean”的转换无效
以下这段代码谢谢菜单里面
错误提示：
.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
--  作者：有点色
--  发布时间：2017/1/20 14:30:00
--  

如果是当前行，这样写

 

 If Tables("表A").Current("男_手机") = huiysj.Text Then