[原创]关于查找代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3066人关注过本帖树形打印复制链接主题：[原创]关于查找代码

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

此主题相关图片如下：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

等级：超级版主帖子：110790 积分：563882 威望：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 [只看该作者]

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

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