老师好
If CurrentTable.Name = "目录树_Table1" Then
For i As Integer = 0 To Tables("目录树_Table1").Count - 1
Tables("目录树_Table1").Rows(i)("母优先级") = i + 101
Next
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
Next
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
Next
With DataTables("目录树_Table3")
.DataCols("孙优先级").RaiseDataColChanged(.DataRows(0))
End With
End If
此主题相关图片如下：图像 1.png
[此贴子已经被作者于2017/10/9 14:43:16编辑过]
加好友 
发短信
Post By：2017/10/9 14:43:00 [显示全部帖子]
