以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  [求助]通过SQLFind找到的后台记录如何通过窗口显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99136)

--  作者：倪惠明 --  发布时间：2017/4/13 11:00:00 --  [求助]通过SQLFind找到的后台记录如何通过窗口显示 If e.Sender.text = "" Then     Return Else     Dim dr As DataRow     dr = DataTables("立项审批").SQLFind("立项编号 =\'"& e.Sender.text &"\'")     If dr IsNot Nothing Then \'如果找到的话.         Forms("立项审批表").Open     End If End If 但窗口显示的并非找到的记录而是立项审批的当前记录。

--  作者：有点色 --  发布时间：2017/4/13 11:07:00 --   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

--  作者：倪惠明 --  发布时间：2017/4/13 11:11:00 --   谢谢