If e.DataCol.Name="名称" Then
Dim fn As winform.form=vars("editForm")
If fn.Opened Then
Dim tr As WinForm.TreeView = fn.Controls("TreeView1")
Dim node As WinForm.TreeNode = tr.Nodes(e.DataRow("分类"))
If node IsNot Nothing andalso node.Nodes.count > 0 Then
node = node.Nodes(e.DataRow("分组"))
If node IsNot Nothing andalso node.Nodes.count > 0 Then
node = node.Nodes(e.OldValue)
If node IsNot Nothing Then
node .Text=e.NewValue
End If
End If
End If
End If
Dim drs As List(Of DataRow)
drs = DataTables(vars("editTable")).Select("[名称] = '" & e.OldValue & "' and [序号] = '" & e.DataRow("序号") & "'")
For Each dr As DataRow In drs
dr("名称") = e.NewValue
Next
End If
加好友 
发短信
Post By：2019/11/5 16:02:00 [显示全部帖子]
