sr =dr1.Current("机具条码")Dim lsjl As DataRow
If sr = nothing Then
lsjl = DataTables("POS机绑定商户历史记录表").AddNew
Else
lsjl = DataTables("POS机绑定商户历史记录表").Find("机具条码='" & sr & "' and 解绑日期 is null")
if lsjl is Nothing Then lsjl = DataTables("POS机绑定商户历史记录表").AddNew
End If
加好友 
发短信
Post By：2017/10/18 9:21:00 [只看该作者]
