If e.Sender.text = "" Then Return Else Dim idx As Integer = Tables("立项审批").FindRow("立项编号 ='"& e.Sender.text &"'") If idx>=0 Then '如果找到的话. Tables("立项审批").Position = idx Forms("立项审批表").Open Else DataTables("立项审批").AppendLoad("立项编号 ='"& e.Sender.text &"'") idx = Tables("立项审批").FindRow("立项编号 ='"& e.Sender.text &"'") If idx>= 0 Then Tables("立项审批").Position = idx Forms("立项审批表").Open End If End If End If