以文本方式查看主题 - 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 -- 没看懂,截图说明 |