-- 作者:douglas738888
-- 发布时间:2019/5/23 16:45:00
-- 已具有相同键报错
请教老师,下面的报错查不出原因,
通过如下代码调入主页到主窗口的Panel中报错 很奇怪,在窗口设计器的预览,独立打开窗口不报错,就是调入主窗口中报错
Dim PB1 As WinForm.Panel = Forms("主窗口").Controls("Paneel1") Dim Name1 As String = "主页" Forms(Name1).OPEN(-1000,-1500) Forms(Name1).BaseForm.TopLevel = False Forms(Name1).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None Forms(Name1).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill PB1.BaseControl.Controls.Clear PB1.BaseControl.Controls.add(Forms(Name1).BaseForm) Forms("主页").Open
主页窗口的AfterLoad 加载代码如下 SQLTable类型 Select语句:Select * F rom {项目备案} Where [_Identify] Is Null
主窗口中的表同名用的是正本,这里用的是 SQLTable
With DataTables("主页_Tabble3") .LoadFilter = "" \'设置加载条件 .LoadPage = 0 \'加载第一页 .LoadTop = 15 \'每页15行 .LoadOver = "登记时间" .LoadFilter = "项目完成_完成 = 0" .LoadReverse = True \'False .Load() Tables("主页_Tabble3").Sort = "登记时间 DESC" End With
已具有相同键............. 此主题相关图片如下:无标题.jpg
|