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


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

主题：求查看答题完成情况设计思路
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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）事件从配置里取出行号，设置给表格即可
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("某某名称", "需要保存的值")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/19 21:09:00 [显示全部帖子]

Dim s As Integer = 2
Dim t As Integer = 5
For i As Integer = 0 To Tables("表A").rows.count - 1
    If i <> 0 Then
        If i Mod 10 = 0 Then
            s = 2
            t = t  +35
        Else
            s = s + 25
        End If
    End If
lbl = Forms("窗口1").CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text =  i+1
……
lbl.BaseControl.Cursor = System.Windows.Forms.Cursors.Hand 
   lbl12.Width = 20
    lbl12.Height = 20
    lbl12.Left = s 
    lbl12.Top =  t
lbl.ForeColor = Color.White
Forms("窗口1").Controls("GroupBox1").AddControl(lbl )
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/20 8:54:00 [显示全部帖子]

2个表题号不一致，没有办法做。

创建控件的时候把控件名称设置为和题号一样即可：
lbl = Forms("窗口1").CreateControl(Tables("题库").rows(i)("题号"), ControlTypeEnum.Label)

然后遍历“答卷”关联表，根据题号设置控件颜色即可
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/20 9:14:00 [显示全部帖子]

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


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/20 11:16:00 [显示全部帖子]

看15楼

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


加好友 发短信
等级：超级版主 帖子：109728 积分：558356 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/20 13:53:00 [显示全部帖子]

2个表题号列内容必须一致

 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询