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

If CurrentTable.Name = "目录树_Table1" Then

For i As Integer = 0 To Tables("目录树_Table1").Count - 1

Tables("目录树_Table1").Rows(i)("母优先级") = i + 101

With DataTables("目录树_Table1")

.DataCols("母优先级").RaiseDataColChanged(.DataRows(0))

End With

ElseIf CurrentTable.Name = "目录树_Table2" Then

For i As Integer = 0 To Tables("目录树_Table2").Count - 1

Tables("目录树_Table2").Rows(i)("母优先级") = Tables("目录树_Table1").Current("母优先级")

Tables("目录树_Table2").Rows(i)("子优先级") = i + 101

With DataTables("目录树_Table2")

.DataCols("子优先级").RaiseDataColChanged(.DataRows(0))

End With

\'------------------------------------------------------------------------------------

ElseIf CurrentTable.Name = "目录树_Table3" Then

For i As Integer = 0 To Tables("目录树_Table3").Count - 1

Tables("目录树_Table3").Rows(i)("子优先级") = Tables("目录树_Table2").Current("子优先级")

Tables("目录树_Table3").Rows(i)("孙优先级") = i + 10101

With DataTables("目录树_Table3")

.DataCols("孙优先级").RaiseDataColChanged(.DataRows(0))

End With

End If