老师,我弄了个代表事项表,把需要审批的都加入到了待办事项表中,窗口名,页签名等信息也传递了过来,我双击打开代待办事项,页签也打开了,但是页签的关闭按钮没出来是什么问题呢?
其他地方运行增加页签都是正常的。
双击打开代码如下:
If e.Col.name = "待办事项" Then
Dim r As Row = Tables("主窗口_Table2").Current
Dim dd As String = r("ID")
Dim nm As String = r("表名")
Dim ck As String = r("窗口名")
Dim yq As String = r("页签名")
If DataTables.Contains(nm) = False
DataTables.Load(nm)
End If
Functions.Execute("增加页签",ck,yq)
DataTables(nm).Save() '接下来要根据主键查找,必须先保存,因为只有保存后新增行的主键才是有效值.
Dim dr As DataRow = DataTables(nm).Find("[ID] = '" & dd & "'")
If dr Is Nothing Then
DataTables(nm).AppendLoad("[ID] = '" & dd & "'")
dr = DataTables(nm).Find("[ID] = '" & dd & "'")
Else
dr.Load()
End If
If dr IsNot Nothing Then
Dim wz As Integer = Tables(nm).FindRow("[ID] = '" & dd & "'")
If wz < 0 Then '如果因为筛选导致此合同签订类不可见
Tables(nm).Filter = ""
wz =Tables(nm).FindRow(dr)
End If
If wz >= 0 Then
Tables(nm).Position = wz
Tables(nm).TopVisibleRow = wz '定位行后设置为第一个可见行位置,http://www.foxtable.com/webhelp/scr/2358.htm
End If
End If
End If
内部函数增加页签代码:
Dim name As String = Args(0) '窗口名
Dim text As String = Args(1) '页签名
Dim tab As WinForm.TabControl = forms("主窗口").Controls("TabControl1")
If tab.TabPages(name) Is Nothing Then
tab.TabPages.Add(name,text) '窗口名,页签名
Dim pb = tab.BaseControl
Forms(name).OPEN(-1000,-1500)
Forms(name).BaseForm.TopLevel = False
Forms(name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.TabPages(name).Controls.Clear
PB.TabPages(name).Controls.add(Forms(name).BaseForm)
tab.SelectedPage = tab.TabPages(name)
Else
tab.SelectedPage = tab.TabPages(name)
End If