- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]查找并定位代码， (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=80757)
-- 发布时间：2016/1/31 14:12:00
-- [求助]查找并定位代码，
我要在出单单号的textbox里输入“进出单表”中“进单单号”的任一个，然后定位到该行。
我是在textbox的Enter下面写下面的代码，但是不能用。
Dim dr As DataRow
dr = DataTables("进出单表").Find("[进单单号] = \'%" "%\' ")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("进出单表").FindRow(dr)
If wz >= 0 Then
Tables("订单").Position = wz
End If
End If
此主题相关图片如下：22.png
-- 发布时间：2016/1/31 14:54:00
--
TextChanged事件
Dim dr As DataRow
dr = DataTables("进出单表").Find("[进单单号] like \'%" & e.Sender.Text & "%\' ")
If dr IsNot Nothing Then
Dim wz As Integer = Tables("进出单表").FindRow(dr)
If wz >= 0 Then
Tables("订单").Position = wz
End If
End If
[此贴子已经被作者于2016/1/31 14:54:33编辑过]
-- 发布时间：2016/1/31 15:25:00
--
谢谢，我是初学者，不太懂，多谢指导