命令窗口
第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)
执行结果：
每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)
执行结果：
我需要用第2段代码，获得第1种结果，代码要怎么修改，还是无法这样作业？
加好友 
发短信
Post By：2016/8/31 13:49:00 [只看该作者]
