- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求查看答题完成情况设计思路 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=178025)
-- 发布时间：2022/6/15 10:54:00
-- 求查看答题完成情况设计思路
学员完成考试100道答题，要查看考题是否全部答完，该如何设计，请朋友们给个思路
-- 发布时间：2022/6/15 11:05:00
--
一道题一行数据，有一个答案列，判断答案列是否有空值
if datatables("答题").compute("count(题目编号)","答案 is null and 学员=‘张三’") > 0 then
-- 发布时间：2022/7/19 0:19:00
--
扩展提问。
蓝老师，一张表是试卷，一张表是答卷，如果100题没答完，下次开机继续接着完成答题，请提供思路。如果有实例，请发一个学习
第二个问题，一张表在关闭保存时的当前行，在下次才打开时，焦点任然是上次保存的行位置
[此贴子已经被作者于2022/7/19 2:22:24编辑过]
-- 发布时间：2022/7/19 8:44:00
--
1、像2楼一样判断，如果答案有空值，说明没有答完，继续作答即可
2、关闭窗口，或者关闭项目的时候，把这个表的行号记录到设置中：http://www.foxtable.com/webhelp/topics/1544.htm
比如：SaveConfigValue("表A",tables("表A").position)
在项目打开的时候（比如AfterOpenProject），或者窗口打开的时候（afterload）事件从配置里取出行号，设置给表格即可
-- 发布时间：2022/7/19 11:31:00
--
蓝老师。四楼第二问题我还是无解。
窗口保存按钮用的
SaveConfigValue("表A", Tables("表A").Current.Index)
项目AfterOpenProject
GetConfigValue("表A", Tables("表A").position)
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目56.table |
-- 发布时间：2022/7/19 11:50:00
--
窗口保存按钮用的
SaveConfigValue("表A", Tables("表A").Current.Index)
datatables.save ‘保存一下整个项目’
项目AfterOpenProject
Dim n As Integer
n = GetConfigValue("表A",0)
n = GetConfigValue("表A",0)
msgbox(n)
Tables("表A").position = n
-- 发布时间：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编辑过]
-- 发布时间：2022/7/19 13:39:00
--
SaveConfigValue
保存设置信息
语法：
SaveConfigValue(Name, Value)
Name： 设置名称
Value： 设置值
SaveConfigValue("某某名称", "需要保存的值")
-- 发布时间：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
-- 发布时间：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