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


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

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


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/19 20:59:00 [显示全部帖子]

自动添加label控件，如何做到每行10个，请求优化
Dim lbl As WinForm.Label
For i As Integer = 1 To Tables("表A").rows.count 
lbl = Forms("窗口1").CreateControl("lable1", ControlTypeEnum.Label)
lbl.Text =  i
lbl.AutoSize = False 
lbl.BorderStyle = BorderStyle.FixedSingle 
lbl.TextAlign = ContentAlignment.MiddleCenter 
lbl.BackColor = Color.red 
lbl.BorderColor = Color.Gold
lbl.BaseControl.Cursor = System.Windows.Forms.Cursors.Hand 
lbl.SetBounds(5 + 30 * i , 20 , 20, 20)
lbl.ForeColor = Color.White
Forms("窗口1").Controls("GroupBox1").AddControl(lbl )
Next
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/20 0:20:00 [显示全部帖子]

蓝老师：现在遇到一个问题，
当表“答卷”中的”题号”列，与窗口中编号生成的lable相同，且答案 is not null 时，说明这道题已回答，
lbl.BackColor = Color.Green 
代码怎么写？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目55.table




[此贴子已经被作者于2022/7/20 2:18:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/20 10:31:00 [显示全部帖子]

搞了一上午，进行不下去。只能把问题交给您了。
做了下面的变通，该如何做。
选择答题，选“A",当表“答卷”答案字段填入值时，与窗口中编号生成对应的lable，改变颜色
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目55.table
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/20 13:47:00 [显示全部帖子]

答卷新增，报错找不到lable_11控件
错误所在事件：学员信息,CurrentChanged，是不是lable换行后导致的？
再就是点击父表，字表不跳转
[此贴子已经被作者于2022/7/20 13:56:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
min-fox
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：141 积分：1091 威望：0 精华：0 注册：2022/5/17 22:25:00 		  发帖心情 Post By：2022/7/20 14:04:00 [显示全部帖子]

题号列内容改成一致可以了，但是点击父表，字表不跳转
 回到顶部
总数 20 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08398 秒, 8 次数据查询