增加行
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")Dim nd As WinForm.TreeNode = trv.SelectedNodeDim nr As Row = Tables("表A").AddNewIf nd IsNot Nothing Then nr("第一列") = nd.TextEnd If