Foxtable(狐表)用户栏目专家坐堂 → [求助]通过SQLFind找到的后台记录如何通过窗口显示


  共有1907人关注过本帖树形打印复制链接

主题:[求助]通过SQLFind找到的后台记录如何通过窗口显示

帅哥哟,离线,有人找我吗?
有点色
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By: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

 回到顶部