以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  已具有相同键报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135326)

--  作者: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
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/5/23 18:43:00
--  

 

做一个对应实例发上来测试。