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


  共有4177人关注过本帖树形打印复制链接

主题：[讨论][求助]能不能做一个评分系统
帅哥哟，离线，有人找我吗？
5233655cs
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00 		[讨论][求助]能不能做一个评分系统  发帖心情 Post By：2020/4/18 15:25:00 [显示全部帖子]

这个软件 如何做一个   打分功能。

有一行数据或者内容。   


有4 5个人 通过远程操作  给这行数据或者内容打分，然后算平均分  

有没有这方面的操作？
 回到顶部
帅哥哟，离线，有人找我吗？
5233655cs
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00 		  发帖心情 Post By：2020/4/18 16:26:00 [显示全部帖子]

这个我也想到了  我在想    评分的人数不一样  怎么操作呢？ 

 回到顶部
帅哥哟，离线，有人找我吗？
5233655cs
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00 		  发帖心情 Post By：2020/4/18 19:41:00 [显示全部帖子]

如何用代码增加列  或者快速增加列的办法  我有几十个表，每个表加20列  要好久

 回到顶部
帅哥哟，离线，有人找我吗？
5233655cs
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00 		  发帖心情 Post By：2020/4/18 19:58:00 [显示全部帖子]

我是每个项目的名称为一行， 可能有几千行，然后给符合的项目给出多人评分。

 回到顶部
帅哥哟，离线，有人找我吗？
5233655cs
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00 		  发帖心情 Post By：2020/4/18 22:05:00 [显示全部帖子]

老师， 

麻烦有时间看下代码   这个后台读写数据。

我用了3个
cmd.CommandText 

执行结束后， 总是出现

.NET Framework 版本：2.0.50727.9148
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
命令参数[1] '' 无效。
命令参数[2] '' 无效。

多步 OLE DB 操作产生错误。如果可能，请检查每个 OLE DB 状态值。没有工作被完成。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt
 回到顶部
帅哥哟，离线，有人找我吗？
5233655cs
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00 		  发帖心情 Post By：2020/4/18 23:43:00 [显示全部帖子]

老师，

还是出现这个错误
 回到顶部
帅哥哟，离线，有人找我吗？
5233655cs
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：58 积分：510 威望：0 精华：0 注册：2020/3/20 10:49:00 		  发帖心情 Post By：2020/4/18 23:53:00 [显示全部帖子]

谢谢老师了，  

我将2个语句合并了， 现在正常了。  
 回到顶部
帅哥哟，离线，有人找我吗？
5233655cs
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询