Foxtable(狐表)用户栏目专家坐堂 → [求助]关于窗口中查找按钮代码问题


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

主题:[求助]关于窗口中查找按钮代码问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110334 积分:561518 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/8/24 23:01:00 [显示全部帖子]

Dim txt As String = e.Form.Controls("TextBox1").text
If txt > "" Then
    Dim r As Integer = Tables("HLXZTJB").FindRow("[HLMC] Like '%" & txt & "%")  'HLXZTJB 是我的表名,HLMC是要查找列的列名.
    If r >= 0 Then '如果找到的话
        Tables("HLXZTJB").Position = r '定位到找到的行.
    End If
End If

 回到顶部