Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求查看答题完成情况设计思路


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

主题：求查看答题完成情况设计思路
帅哥哟，离线，有人找我吗？
min-fox
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		求查看答题完成情况设计思路  发帖心情 Post By：2022/6/15 10:54:00 [只看该作者]

学员完成考试100道答题，要查看考题是否全部答完，该如何设计，请朋友们给个思路

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


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/15 11:05:00 [只看该作者]

一道题一行数据，有一个答案列，判断答案列是否有空值

if datatables("答题").compute("count(题目编号)","答案 is null and 学员=‘张三’") > 0 then
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/19 0:19:00 [只看该作者]

扩展提问。
蓝老师，一张表是试卷，一张表是答卷，如果100题没答完，下次开机继续接着完成答题，请提供思路。如果有实例，请发一个学习

第二个问题，一张表在关闭保存时的当前行，在下次才打开时，焦点任然是上次保存的行位置
[此贴子已经被作者于2022/7/19 2:22:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/19 8:44:00 [只看该作者]

1、像2楼一样判断，如果答案有空值，说明没有答完，继续作答即可
2、关闭窗口，或者关闭项目的时候，把这个表的行号记录到设置中：http://www.foxtable.com/webhelp/topics/1544.htm
比如：SaveConfigValue("表A",tables("表A").position)

在项目打开的时候（比如AfterOpenProject），或者窗口打开的时候（afterload）事件从配置里取出行号，设置给表格即可
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/19 11:31:00 [只看该作者]

蓝老师。四楼第二问题我还是无解。
窗口保存按钮用的
SaveConfigValue("表A", Tables("表A").Current.Index)
项目AfterOpenProject
GetConfigValue("表A", Tables("表A").position)

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目56.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/19 11:50:00 [只看该作者]

窗口保存按钮用的
SaveConfigValue("表A", Tables("表A").Current.Index)
datatables.save ‘保存一下整个项目’

项目AfterOpenProject
Dim n As Integer
n = GetConfigValue("表A",0)
msgbox(n)
Tables("表A").position = n
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/19 12:32:00 [只看该作者]

把文本框中的内容保存到项目中，Value参数怎么设置？
Dim tb As String = e.Form.Controls("TextBox1").Text
If tb Is Nothing Then
    SaveConfigValue(tb， )
End If
[此贴子已经被作者于2022/7/19 12:32:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/19 13:39:00 [只看该作者]

SaveConfigValue

保存设置信息

语法：

SaveConfigValue(Name, Value)

Name：  设置名称
Value： 设置值


SaveConfigValue("某某名称", "需要保存的值")
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/19 14:23:00 [只看该作者]

处在蒙圈中，需要蓝老师手把手改了
（按钮）保存到项目中：
Dim tb As String = e.Form.Controls("TextBox1").Text
SaveConfigValue(e.Form.Controls("TextBox1"), tb )

（按钮）从项目中提取
Dim n As String
n = GetConfigValue(e.Form.Controls("TextBox1"),tb)
e.Form.Controls("TextBox2").text = n
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/19 14:27:00 [只看该作者]

（按钮）保存到项目中：
Dim tb As String = e.Form.Controls("TextBox1").Text
SaveConfigValue("TextBox1", tb )

（按钮）从项目中提取
Dim n As String
n = GetConfigValue("TextBox1","")
e.Form.Controls("TextBox2").text = n
 回到顶部
总数 39 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 5 次数据查询