宁静海

Public Function SelectTabByHead(tabControlH, tabHeadStr)
    tabCount = tabControlH.Object.TabPages.Count
    For i = 0 to tabCount - 1
        Set currentTabPage = tabControlH.Object.TabPages.Item(i)
        tabHead = currentTabPage.Text
        If tabHead = tabHeadStr Then
            tabControlH.Object.SelectedTabPageIndex = currentTabPage.TabIndex
        End If
    Next
End Function

ALTER SEQUENCE SEQ_NAME INCREMENT BY 100;
SELECT SEQ_NAME.NEXTVAL FROM DUAL;
ALTER SEQUENCE SEQ_NAME INCREMENT BY 1;

Public Function ClickTreeNode(treeConterH, nodeVal)

    colCount = treeConterH.Object.Columns.Count

    Dim targetNode

    Dim fildName
    For i = 0 to  colCount - 1

        fildName = treeConterH.Object.Columns.Item(i).FieldName

        treeConterH.Object.Columns.ColumnByFieldName(fildName).OptionsColumn.AllowEdit = true

        treeConterH.Object.Columns.ColumnByFieldName(fildName).OptionsColumn.ReadOnly = false

'        MsgBox(fildName)

'        MsgBox(nodeVal)

         Set targetNode = treeConterH.Object.FindNodeByFieldValue(fildName, nodeVal)

    Next

    treeConterH.Object.SetFocusedNode targetNode
    treeConterH.Object.OptionsBehavior.Editable = true

    treeConterH.Object.ShowEditor
    '"{X=21,Y=2}"

    location = treeConterH.Object.ActiveEditor.Location

    location =  replace(replace(replace(location, "{X=",""), "Y=", ""), "}", "")

    iX = Split(location, ",")(0)

    iY = Split(location, ",")(1)
    For i = 0 to  colCount - 1

        treeConterH.Object.Columns.ColumnByFieldName