以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助 find为毛没有找到符合条件行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=70901)

--  作者:weigqing9
--  发布时间:2015/7/1 9:35:00
--  求助 find为毛没有找到符合条件行

下列代码写在窗口按钮,我登陆表Name列已有我计算机名字段,但find没有找到符合条件行,请问代码问题在那里,谢谢。这段代码目的是参照帮助文件监视器,保存当前计算机扫描仪路径。

\'Dim txt1  As String = e.Form.Controls("TextBox1").text
Dim HostName As String
HostName = System.Net.Dns.GetHostName   \'获得本机的机器名
Dim dr As DataRow
Dim Index As Integer
dr = DataTables("登录").Find("[Name] = \'" & HostName & "\'")
Index = Tables("登录").FindRow(dr)
If Index > = 1 Then
    Output.Show("找到了")
             \' 启动扫描仪   
Else
    Output.Show("没有找到")

              \'提示写入扫描仪路径C:\\Windows\\twain_32\\escndv\\escndv.exe
              \'Dim drv As dataRow = dataTables("登录").AddNew()
              \'drv("Name") = HostName
              \'drv("路径") = txt1
End If


--  作者:大红袍
--  发布时间:2015/7/1 9:38:00
--  

这样测试一下

 

Dim HostName As String
HostName = System.Net.Dns.GetHostName   \'获得本机的机器名
Dim dr As DataRow
dr = DataTables("登录").Find("[Name] = \'" & HostName & "\'")
msgbox("[Name] = \'" & HostName & "\'")
msgbox(dr Is Nothing)
If dr IsNot Nothing Then
    Output.Show("找到了")
    \' 启动扫描仪
Else
    Output.Show("没有找到")
End If


--  作者:weigqing9
--  发布时间:2015/7/1 9:49:00
--  感谢老师的及时回复,完美解决
感谢老师的及时回复,完美解决,感恩您