Foxtable(狐表)用户栏目专家坐堂 → 老师,这段代码如何修改?


  共有64人关注过本帖树形打印复制链接

主题:老师,这段代码如何修改?

帅哥哟,离线,有人找我吗?
scofields
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:401 积分:2944 威望:0 精华:0 注册:2016/4/17 20:05:00
老师,这段代码如何修改?  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:42968 积分:215921 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/12 22:22:00 [只看该作者]

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

 

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

[此贴子已经被作者于2017/10/12 22:22:42编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
scofields
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:401 积分:2944 威望:0 精华:0 注册:2016/4/17 20:05:00
  发帖心情 Post By:2017/10/12 22:31:00 [只看该作者]

是的,我忽略了一个最基本的东西,Textbox3的值是动态的,就像用户名一样。

 回到顶部