以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助].NET Framework 版本:2.0.50727.8806 Foxtable 版本:2016.7.29.1 错误所在事件:窗口,面试成绩,Button4,Click 详细错误信息: 语法错误:“A”运算符后缺少操作数。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178791)

--  作者:hrw68529
--  发布时间:2022/7/21 7:00:00
--  [求助].NET Framework 版本:2.0.50727.8806 Foxtable 版本:2016.7.29.1 错误所在事件:窗口,面试成绩,Button4,Click 详细错误信息: 语法错误:“A”运算符后缺少操作数。
下段代码运行时提示:
.NET Framework 版本:2.0.50727.8806
Foxtable 版本:2016.7.29.1
错误所在事件:窗口,面试成绩,Button4,Click
详细错误信息:
语法错误:“A”运算符后缺少操作数。
代码如下:
Dim bjs As List(Of String) = DataTables("笔试成绩").GetValues("职位代码")
For Each bj As String In bjs
    \'获得该班级的全部行,按总分降序排序
    Dim drs As List(Of DataRow) = DataTables("笔试成绩").Select("[职位代码] = " & bj, "总成绩 DESC")
    For n As Integer = 0 To drs.Count - 1 \'遍历所有行
        If n > 0 AndAlso drs(n)("总成绩") = drs(n-1)("总成绩") Then \'如果总分和上一行相同
            drs(n)("面试排名") = drs(n-1)("面试排名") \'则排名等于上一行
       Else
           drs(n)("面试排名") = n + 1 \'设置排名
       End If
        If n>0 AndAlso  drs(n)("总成绩") = drs(n-1)("总成绩")  Then
            drs(n)("标识") = True
            drs(n-1)("标识") = True
        Else
            drs(n)("标识") = False
        End If
    Next
Next
e.Form.Controls("笔试").Table.Sort="职位代码,面试排名"

--  作者:z769036165
--  发布时间:2022/7/21 8:10:00
--  
Select("[职位代码] = \'" & bj & "\'", "总成绩 DESC")
--  作者:有点蓝
--  发布时间:2022/7/21 9:15:00
--  
多看几遍:http://www.foxtable.com/webhelp/topics/1284.htm
--  作者:hrw68529
--  发布时间:2022/7/21 15:06:00
--  
谢谢