以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师，这段代码如何修改？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107934)
--  作者：scofields
--  发布时间：2017/10/12 22:08:00
--  老师，这段代码如何修改？
如题：
Dim cboMode As WinForm.ComboBox = e.Form.Controls("cboMode")
Dim snr(4) As Byte
Dim snr1 As New String(snr1, 8)
\'单卡操作( IDLE 模式)寻卡时,完成对卡片的操作后读写器不能找到卡片,除非卡片离开操作区域并再次重新进入.
\'选用多卡操作(ALL 模式)寻卡时,完成对卡片的操作后读写器仍能找到该卡片,无须离开操作区域并再次重新进入.
Dim st = Mwrf32.rf_card(icdev,cboMode.SelectedIndex,snr(0))
If (st = 0) Then
    Mwrf32.hex_a(snr(0), snr1, 4)
    Vars("CardNumber") = snr1
Dim ss As String =  e.form.controls("textbox3").text
Dim dr3 As DataRow
dr3 = DataTables("T_信息表").SQLFind("序列号 = ss ")
If dr3 IsNot Nothing Then \'如果找到的话
   MessageBox.show("此卡已经分配,请勿重新分配")
Return
Else 
Dim dr2 As DataRow = Tables("T_信息表").Current.DataRow
dr2("序列号") = ss
Tables("T_信息表").Current.Save()
End If
    Else
    messagebox.show("读卡失败: " & GetErrorDesc(st))
    msgbox("读卡失败!" & vbcrlf & "请将IC卡拿起操作区域再重新放入!" & vbcrlf & "或者重新插拔驾驶员身份识别设备!")
End If
--  作者：有点甜
--  发布时间：2017/10/12 22:22:00
--  

这个意思？你现在的问题是什么 ？

 

dr3 = DataTables("T_信息表").SQLFind("序列号 = \'" & ss & "\'")

[此贴子已经被作者于2017/10/12 22:22:42编辑过]
--  作者：scofields
--  发布时间：2017/10/12 22:31:00
--  
是的，我忽略了一个最基本的东西，Textbox3的值是动态的，就像用户名一样。