Foxtable(狐表)用户栏目专家坐堂 → [原创]关于查找代码


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

主题:[原创]关于查找代码

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


加好友 发短信
等级:婴狐 帖子:9 积分:149 威望:0 精华:0 注册:2020/11/18 19:20:00
[原创]关于查找代码  发帖心情 Post By:2020/11/20 1:01:00 [只看该作者]

Dim tbx As WinForm.TextBox = e.Form.Controls("czdwmc")
Dim chk As WinForm.RadioButton = e.Form.Controls("mhcz")
Dim str As String = tbx.Value
Dim dr As DataRow = DataTables("记录").Find("单位名称 = ""  & str & """)
If dr IsNot Nothing Then
    Dim idx As Integer = Tables("记录").FindRow(dr)
    If idx >= 0 Then
        Tables("记录").Position = idx 
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下:067f258307f47e6334b91ec312fc9db.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
lichoulia
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:149 威望:0 精华:0 注册:2020/11/18 19:20:00
  发帖心情 Post By:2020/11/20 1:03:00 [只看该作者]

请专家帮忙看一下。想用一个查找返回到指定值内。可是报错

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105491 积分:536446 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/20 8:18:00 [只看该作者]

Dim dr As DataRow = DataTables("记录").Find("单位名称 = '"  & str & "'")


表达式中的日期用符号#括起来,数值则不需要任何符号括起来,这些和代码中的格式是一样的,唯一不同的是字符串用单引号括起来。

例如:

Tables("订单").Filter = "[产品] = 'PD01'"  '字符用单引号括起来
Tables("订单").Filter = "[日期] = #3/17/1999#"  '日期用#括起来
Tables("订单").Filter = "[折扣] = 0.1"  '数值直接使用


 回到顶部
帅哥哟,离线,有人找我吗?
lichoulia
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:149 威望:0 精华:0 注册:2020/11/18 19:20:00
  发帖心情 Post By:2020/11/20 11:02:00 [只看该作者]

非常感谢版主的指点,问题已解决

 回到顶部