以文本方式查看主题

-  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=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的值是动态的,就像用户名一样。