- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 闪退 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143499)
-- 发布时间：2019/11/26 22:29:00
-- 闪退
莫名其妙的突然闪退，真搞不清楚是怎么了，请老师给看看，谢谢。
问题：1、闪退。
2、按住Ctrl进入后，在菜单栏上的筛选按钮不见。
3、下次启动还是闪退，下午还好好的呀。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:禁毒答题.zip |
-- 发布时间：2019/11/26 23:12:00
--
If e.DataTableName = "试题库" Then
e.Filter = "[准驾车型] Like \'%C1%\'"
End If
这个代码要去掉，因为目前"试题库"表没有[准驾车型] 列
-- 发布时间：2019/11/27 17:33:00
--
老师您，请帮我看看，模拟考试点击开始按钮后为什么总报错，请老师帮忙改改，谢谢。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:禁毒答题.zip |
-- 发布时间：2019/11/27 20:25:00
--
内部函数【组题】
……
Dim Str As String
For Each fl As String In fls
Dim dr As DataRow = DataTables("组题方式").Find("[试题] = \'" & fl & "\'")
If dr IsNot Nothing
\'组合字符串
str = str & " or [分类] = \'" & fl & "\' And [组题] <= " & dr(Vars("适合年级"))*100
End If
Next \'筛选
If str > "" Then str = str.SubString(4)
Tables("试题库").Filter = str
……