以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  语法错误  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102315)

--  作者:刘林
--  发布时间:2017/6/17 9:23:00
--  语法错误
Dim c2 As String= e.Form.Controls("combobox2").text
Dim c4 As String= e.Form.Controls("combobox4").text
Dim c3 As String= e.Form.Controls("combobox3").text
Dim dr As Row = Tables("用户").Current
If js.Contains("区业务主管") = True
    DataTables("成绩").loadfilter ="考试名称= \'" & c2 & "\'  and 学段 =\'小学\' and 考号= \'" & e.sender.text & "\'"
Else
    If dr("录分角色")= "片区负责人"
        DataTables("成绩").loadfilter ="考试名称= \'" & c2 & "\' And 学段 =\'小学\' substring([考号],2,1) = \'" & lffp & "\' and 考号 = \'"& e.sender.text &"\'"
    Else
        DataTables("成绩").loadfilter ="考试名称= \'" & c2 & "\' And 学段 =\'小学\' substring([考号],2,1) = \'" & lffp & "\' and 年级 = \'" & c4 & "\' and 考号 = \'"& e.sender.text &"\'"
    End If
End If
DataTables("成绩").load


老师,上面代码想在不用人员查找加载的范围不一样,写在valuechanged 事件,提示substring周围有语法错误,请问怎么改

--  作者:wyz20130512
--  发布时间:2017/6/17 9:47:00
--  
试试:
DataTables("成绩").loadfilter ="考试名称= \'" & c2 & "\' And 学段 =\'小学\' And" & substring([考号],2,1) & "= \'" & lffp & "\' and 考号 = \'"& e.sender.text &"\'"
--  作者:刘林
--  发布时间:2017/6/17 9:52:00
--  
更不行,未声明变量
--  作者:刘林
--  发布时间:2017/6/17 9:59:00
--  
当用户为片区负责人时,有个片区代码lffp,此时加载就只能在所有考号第2位=lffp的记录
--  作者:有点蓝
--  发布时间:2017/6/17 10:10:00
--  
If dr("录分角色")= "片区负责人"
        DataTables("成绩").loadfilter ="考试名称= \'" & c2 & "\' And 学段 =\'小学\' and substring([考号],2,1) = \'" & lffp & "\' and 考号 = \'"& e.sender.text &"\'"
    Else
        DataTables("成绩").loadfilter ="考试名称= \'" & c2 & "\' And 学段 =\'小学\' and  substring([考号],2,1) = \'" & lffp & "\' and 年级 = \'" & c4 & "\' and 考号 = \'"& e.sender.text &"\'"
    End If

--  作者:刘林
--  发布时间:2017/6/17 10:15:00
--  
太不好意思,不仔细,谢谢老师

请问如何让一个绑定了数值型字段的文本框只能输入数字,不能输入非数字的字符,谢谢

--  作者:有点蓝
--  发布时间:2017/6/17 10:17:00
--  
用数值控件,不用文本框
--  作者:刘林
--  发布时间:2017/6/17 10:31:00
--  
老师,如果在表中有一列的数据框选后上下移动,怎么做
--  作者:刘林
--  发布时间:2017/6/17 10:34:00
--  
如录分时,发现错位一行,将错位的框选后做个上面移动键
--  作者:有点蓝
--  发布时间:2017/6/17 10:51:00
--  
没看懂,截图说明