- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教实例 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=92831)
-- 发布时间：2016/11/14 14:48:00
-- 请教实例
大师：搞不明白，什么原因？页面2不能显示？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目30.zip |
-- 发布时间：2016/11/14 14:59:00
--
页面2没有设置页面名称
-- 发布时间：2016/11/14 15:18:00
--
看来是一点马虎不得呀，写代码真不是一般人干的！！！！！
-- 发布时间：2016/11/14 15:45:00
--
到我项目中就是不行，难道有鬼，就是有一个生成临时表函数出问题，第一次打开没有问题，第二次就有问题？
-- 发布时间：2016/11/14 15:56:00
--
弹出页面名称看看咯，不然就循环用标题定位
-- 发布时间：2016/11/14 21:09:00
--
怪事，如上例，如果生成两遍临时表，不通过，有没有存在此表，就不能选择切换页面？
-- 发布时间：2016/11/14 21:12:00
--
切换页面跟这些应该没有关系。应该是前面的代码出错导致后面的运行出问题。检查一下自己的代码逻辑
-- 发布时间：2016/11/14 21:59:00
--
我把红色部分放在最上面，运行没有问题，放在下面，到 tab3.SelectedPage = tab3.TabPages("page6") 就出错，主要是解决界面的闪烁问题。
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.AppStarting
If Vars("zgsdlzt") = True Then
e.Form.StopRedraw
Vars("zgsfrmsyzbdbBotton") = 1
Dim dt As DataTable
Vars("zgssyzbbdb_zgssyzbsdb") = "本年变动表"
If DataTables.Contains("listBqybdb") = False Then
Functions.Execute("zgsSyzbdbMakeLsb",dt,"zzzz18","zzzz11")
End If
Functions.Execute("zgsSyzbdbMake",dt,"zzzz18","zzzz11") \'---读入数据----
\'----------------------------------------------------------------------------------
Dim cob1 As WinForm.ComboBox = e.Form.Controls("ComboBox20")
cob1.Value = ""
Dim tet1 As WinForm.TextBox = e.Form.Controls("TextBox5")
tet1.Value = ""
Dim tb1 As WinForm.Table = e.Form.Controls("Table14")
tb1.Table.AllowEdit = True
tb1.Table.DataSource = DataTables("listBqybdb") \'---绑定临时表
Vars("zgslistBqybdbkg") = False
Vars("listBqybdbkg") = True
tb1.Table.DataTable.GlobalHandler.DataColChanged = True \'---开启全局表事件---
For Each cl As DataCol In tb1.Table.DataTable.DataCols
If cl.IsNumeric Then \'---设置数字列格式
cl.SetFormat("n")
End If
If cl.name = "Bqybdb1" Then \'---设置列宽度
tb1.Table.Cols(cl.name).Width = 250
Else
tb1.Table.Cols(cl.name).Width = 110
End If
Next
Functions.Execute("zgsSyzbdbCompute")
Dim tab3 As WinForm.TabControl = e.Form.Controls("TabControl3")
tab3.TabPages("page6").Visible = True
tab3.SelectedPage = tab3.TabPages("page6")
e.Form.ResumeRedraw
Else
MessageBox.Show("请登录项目","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
-- 发布时间：2016/11/14 22:19:00
--
TabControl3有没有切换页面事件代码SelectedIndexChanged
如果不要tab3.SelectedPage = tab3.TabPages("page6")，page6标题能不能显示出来？
-- 发布时间：2016/11/14 22:50:00
--
切换页面事件代码，测试过了，如果上面的红色部分代码放在上面，没有问题，放在下面后，运行到下面的红色部分就不行了？为什么？
Dim frm As WinF_orm.Form = Forms.Activ_eForm
If frm IsNot Nothing And frm.FormStyle = FormStyleEnum.并列 Then
frm.StopRedraw
Dim clr1 As Color = Color.LightBLue
Dim clr2 As Color = Color.FromARGB(255,255,255,255)
Dim clr3 As Color = Color.FromARGB(255,0,118,163)
Dim clr4 As Color = Color.silver
Functions.Execute("VisualStyle",frm,Vars("Jmys"),False)
frm.ResumeRedraw
End If