主题：指定行

Dim dt As DataTable = DataTables("工资摘要")
Dim dic As New Dictionary(of Integer, Integer)
Dim ids As String = ""
Dim prevLevel As Integer = 0
For Each nd As WinForm.TreeNode In e.Form.Controls("TreeView1").AllNodes
    If nd.Level = 0 AndAlso dic.count > 0 Then
        Dim temp = dic(0)
        dic.Clear
        dic.Add(0, temp)
    End If
   
    If dic.ContainsKey(nd.Level) = False Then
        dic.Add(nd.Level, 1)
    Else
        dic(nd.Level) = dic(nd.Level) + 1
    End If
    For i As Integer = nd.level + 1 To prevLevel
        dic(i) = 0
    Next
   
    prevLevel = nd.Level
   
    Dim ndr As DataRow = Nothing
    If nd.tag > "" Then
        ndr = dt.find("_Identify = " & nd.tag)
    End If
    If ndr Is Nothing Then
        ndr= dt.AddNew
        nd.tag = ndr("_Identify")
    End If
    Dim str As String = ""
    For i As Integer = 0 To nd.Level
        If i = 0 Then
            str &= 2016 & format(dic(i),"00") & "."
        Else
            str &= format(dic(i),"00") & "."
        End If
    Next
    ndr("代码") = str.TrimEnd(".")
    ndr("摘要") = nd.Text
    ids &= nd.tag & ","
Next
dt.deletefor("_Identify not in (" & ids.trim(",") & ")")
Tables("工资摘要").DataTable.Load()
Tables("工资摘要").Sort = "代码"

 If i = 0 Then
            str &= 2016 & format(dic(i),"00") & "."
        Else
            str &= format(dic(i),"00") & "."
        End If
    Next

 不行。

 

 你可以赋值一个变量，然后用那个变量代替2016。

 获取当前时间参考

 

format(Date.Today, "yyyyMM")

如49楼摘要201601当要增加下月时，自动为2016O2？

1、直接查表，查询最大值；

 

2、可以循环每一个节点，比较得到最大值。

此主题相关图片如下：qq截图.png

无法进入FOX,点击确定后自动退出，请问老师应如何才可进入？