- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]关于查找代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158431)
-- 发布时间：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
-- 发布时间：2020/11/20 1:03:00
--
请专家帮忙看一下。想用一个查找返回到指定值内。可是报错
-- 发布时间：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" \'数值直接使用
-- 发布时间：2020/11/20 11:02:00
--
非常感谢版主的指点，问题已解决