以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码问题，请求帮忙，谢谢。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89865)
--  作者：qwz405
--  发布时间：2016/8/31 13:49:00
--  代码问题，请求帮忙，谢谢。
命令窗口

第1段代码：

Dim s1 As String = Tables("HrEmployee").Current("CardID")
Dim s2 As String = "J" & s1.SubString(1)

Dim dr As  DataRow = DataTables("员工名册").Find("[工号] = \'J0005\'")
If dr IsNot Nothing
    Output.Show(3)
Else
    Output.Show(4)
End  If

Output.Show(s1)
Output.Show(s2)

执行结果：
3
00005     
J0005   


每2段代码：

若将 J0005改为s2，如下：

Dim s1 As String = Tables("HrEmployee").Current("CardID")
Dim s2 As String = "J" & s1.SubString(1)

Dim dr As  DataRow = DataTables("员工名册").Find("[工号] = \'s2\'")
If dr IsNot Nothing
    Output.Show(3)
Else
    Output.Show(4)
End  If

Output.Show(s1)
Output.Show(s2)

执行结果：
4
00005     
J0005  

我需要用第2段代码，获得第1种结果，代码要怎么修改，还是无法这样作业？
--  作者：有点蓝
--  发布时间：2016/8/31 14:41:00
--  
Dim dr As  DataRow = DataTables("员工名册").Find("[工号] = \'" & s2 & "\'")
--  作者：qwz405
--  发布时间：2016/8/31 14:54:00
--  
谢谢了~

学艺不精啊，丢人了~~~