| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102304) |
| -- 作者：刘林 -- 发布时间：2017/6/16 22:31:00 -- 窗口 Dim dr As Row = Tables("用户").Current Dim cmb2 As WinForm.ComboBox = e.form.Controls("ComboBox2") cmb2.ComboList = dr("录分名称") Dim cmb1 As WinForm.ComboBox = e.form.Controls("ComboBox1") If js.Contains("区业务主管") Or dr("录分角色")="片区负责人" cmb1.ComboList = "语文|数学" Else cmb1.ComboList = dr("录分科目") End If Forms("小学统分(改)").Controls("label3").BindingField = "小学统分(改)_table1.姓名" Forms("小学统分(改)").Controls("label10").BindingField = "小学统分(改)_table1.考号" Tables("小学统分(改)_table1").Sort = "考号" Tables("小学统分(改)_table1").Cols("单位名称").allowedit = False Tables("小学统分(改)_table1").Cols("考号").allowedit = False Tables("小学统分(改)_table1").Cols("姓名").allowedit = False Tables("小学统分(改)_table1").Cols("考试名称").allowedit = False vars("tick") = 0 vars("close") = False 这个窗口打开时十分卡，要等很久，后来终于发现打开这个窗口时表中的记录有修改的情况，因为记录号变黄了，是什么原因，
|
| -- 作者：有点蓝 -- 发布时间：2017/6/16 22:49:00 -- http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=50080 |
| -- 作者：有点蓝 -- 发布时间：2017/6/16 22:50:00 -- 代码看不出什么问题。是不是有计算器代码？去掉afterload代码还慢不慢 |
| -- 作者：刘林 -- 发布时间：2017/6/16 22:58:00 -- 初始加载loadfilter="1=2"后就好了，但要修改记录不晓得是什么原因，请指导 |
| -- 作者：有点蓝 -- 发布时间：2017/6/16 23:00:00 -- 去掉afterload代码还有会修改记录吗？如果不会，那就分别注释部分代码，看是哪些代码的问题 |