Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") Dim idx As Integer = Tables("工资摘要").FindRow("代码 = '" & e.Node.Name & "'") If idx >= 0 Tables("工资摘要").Position = idx Forms("工资档案窗口").open() Forms("工资档案窗口").Controls("Label1").Text = Tables("工资摘要").current("摘要") End If
|