窗口异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

************ 异常文本 **************

System.ArgumentException: 已添加了具有相同键的项。

在 System.ThrowHelper.ThrowArgumentException(ExceptionResource resource)

在 System.Collections.Generic.Dictionary`2.Insert(TKey key, TValue value, Boolean add)

在 Foxtable.O　　O　O　o..ctor(DataTable A_0, String A_1)

在 Foxtable.WinForm.Form.oOo0__o_(ControlCollection A_0, DataRow A_1, Int32 A_2)

在 Foxtable.WinForm.Form.oo___o_0()

在 Foxtable.WinForm.Form.O_0_0__O(o0___oO0 A_0, Int32 A_1, Int32 A_2)

在 Foxtable.WinForm.Form.Open(Int32 x, Int32 y)

在 Foxtable.o_oOOo_0.OO0o____(Object A_0, ClickEventArgs A_1)

在 C1.Win.C1Command.C1Command.OnClick(ClickEventArgs e)

在 C1.Win.C1Command.C1Command.Invoke(ClickEventArgs e)

在 C1.Win.C1Command.bn.a(C1CommandLink A_0, a A_1)

在 C1.Win.C1Command.bn.c(MouseEventArgs A_0)

在 C1.Win.C1Command.MenuPopup.OnMouseUp(MouseEventArgs e)

在 System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)

在 System.Windows.Forms.Control.WndProc(Message& m)

在 System.Windows.Forms.ScrollableControl.WndProc(Message& m)

在 System.Windows.Forms.ContainerControl.WndProc(Message& m)

在 System.Windows.Forms.Form.WndProc(Message& m)

在 C1.Win.C1Command.MenuPopup.WndProc(Message& m)

在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)

在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)

在 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

************** 已加载的程序集 **************

mscorlib

程序集版本: 2.0.0.0

Win32 版本: 2.0.50727.5485 (Win7SP1GDR.050727-5400)

基本代码: file:///C:/Windows/Microsoft.NET/Framework/v2.0.50727/mscorlib.dll

----------------------------------------

Foxtable

e.Form.BaseForm.windowstate = 2
Dim schoolName As String = user.group
Dim c7 As String = trim(e.Form.controls("combobox7").text)
Dim cmd As New SQLCommand
Dim dt As DataTable
e.Form.Controls("label2").text = "内江市东兴区中考报名管理"
cmd.c
cmd.CommandText = "SELE CT DISTINCT ksmc,xxmc,bjdm From {中考表}"
dt = cmd.ExecuteReader()
Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv3.BuildTree(dt,"ksmc|xxmc|bjdm")
Dim cmd1 As New SQLCommand
Dim dt1 As DataTable
cmd1.c
cmd1.CommandText = "SE LECT DISTINCT 考试名称,学校名称,学校班级 From {生地报名库}"
dt1 = cmd1.ExecuteReader()
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree(dt1,"考试名称|学校名称|学校班级")

Dim lb2 As WinForm.Label = e.Form.Controls("Label2")
If e.Form.width > lb2.Width
lb2.Left = (e.Form.width - lb2.Width ) / 2
End If
Dim lb4 As WinForm.Label = e.Form.Controls("Label4")
If e.Form.width > lb4.Width
lb4.Left = (e.Form.width - lb4.Width ) / 2
End If

Dim lb16 As WinForm.Label = e.Form.Controls("Label16")
If e.Form.width > lb16.Width
lb16.Left = (e.Form.Controls("table3").width - lb16.Width ) / 2
End If
Dim lb3 As WinForm.Label = e.Form.Controls("Label3")
If e.Form.width > lb3.Width
lb3.Left = (e.Form.Controls("table3").width - lb3.Width ) / 2
End If
e.Form.TimerEnabled = True
Dim t3 As Table = Tables("中考县区端_table3")
Dim t4 As Table = Tables("中考县区端_table4")
Dim t1 As Table = Tables("中考县区端_table1")

t4.sort= "学校名称,备注,报名号"
t3.sort= "bmh"
Tables("中考表").AllowEdit=True
Tables("中考管理").GrandTotal = True

For Each c As Col In t1.Cols
    If c.IsNumeric Then
        c.GrandTotal = True
    End If
Next
t1.GrandTotal = True '显示合计模式

之前没这问题，可运行，也没改AFTERLOAD

计时器没用了，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:xq.rar

请老看下，谢谢，

主题：窗口异常