[讨论][求助]能不能做一个评分系统 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论][求助]能不能做一个评分系统

共有2998人关注过本帖树形打印复制链接主题：[讨论][求助]能不能做一个评分系统

5233655cs

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/18 23:53:00 [只看该作者]

谢谢老师了，

我将2个语句合并了，现在正常了。

dj68301367

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：小狐帖子：358 积分：2707 威望：0 精华：0 注册：2015/4/12 12:13:00

Post By：2020/4/18 23:54:00 [只看该作者]

不用参数试试，messagebox r看一下结果

If values("优秀打分_" & i) = 0 Then

RS=RS+1 '评委人数+1

cmd.CommandText = "UP DATE " & depart & " SET 评委人数 = “ & rs & ”,优秀打分_" & i & "=" & e.Form.Controls("TextBox14").value & " WHERE 序号='" & n &"'"

‘ cmd.parameters.add("@评委人数",RS)

’ cmd.parameters.add("@优秀打分_i",e.Form.Controls("TextBox14").value)

messagebox.show(cmd.CommandText)

cmd.ExecuteNonQuery

5233655cs

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00

Post By：2020/4/19 [只看该作者]

谢谢已经正常了我把2个语句合并了。。。

cmd.CommandText = "UPDA TE {" & departName & "} SET 评委人数 = ?,优秀打分_" & i & "=?,评分状态=?,状态=? WHERE 序号='" & n & "'"

RS=RS+1 '评委人数+1

state =state & " " & dr("用户工号")

cmd.parameters.add("@评委人数",RS)

cmd.parameters.add("@优秀打分_i",e.Form.Controls("TextBox14").value)

cmd.Parameters.Add("@评分状态",state)

messagebox.show("序号为" & n & "的改善提案已经被您评分,分数为:" & e.Form.Controls("TextBox14").value,"提示",MessageBoxButtons.OK)

If rs > = Totaljudge Then

cmd.parameters.add("@状态","优秀改善评分结束")

Else

cmd.parameters.add("@状态","优秀改善")

End If

cmd.ExecuteNonQuery

总数 13 上一页 1 2

主题：[讨论][求助]能不能做一个评分系统