【状态改变】怎么实现第一次新增数据登记状态为“借出”，再次新增数据登记状态为”归还”
此主题相关图片如下：11.jpg
如何根据卷宗编号 加密字符 来判断【扫码录入】表中
如果数据没有记录 新增一行 登记状态为 借出
间隔时间10秒后 才能再次新增
如果数据有记录 且登记状态为借出 那么登记状态改为 归还
间隔时间10秒后 才能再次新增
对应卷宗编号 加密字符的 新增新记录 登记状态为 借出
间隔时间10秒后 才能再次新增
如果数据有记录 且登记状态为借出 那么登记状态改为 归还
……
在卷宗使用窗体中 扫码录入 TEXTbox1 事件代码中已经实现了新增行数据
此主题相关图片如下：22.jpg
代码如下：
Dim te1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim ab As String = te1.text
Dim dr As DataRow
Dim Filter As String
Filter =" [加密字符] ='" & ab & "'"
dr = DataTables("卷宗入库").Find(Filter)
Dim drn As Row = Tables("扫码录入").AddNew()
If dr IsNot Nothing Then '如果找到
'将找到行的内容填入到正在输入的行中.
drn("所属地州") = dr("所属地州")
drn("所属单位") = dr("所属单位")
drn("卷宗名称") = dr("卷宗名称")
drn("卷宗册数") = dr("卷宗册数")
drn("录入时间") = Date.now
drn("卷宗编号") = dr("卷宗编号")
drn("承办人") = dr("承办人")
drn("承办部门") = dr("承办部门")
drn("联系电话") = dr("联系电话")
drn("加密字符")=ab
Else
'否则清除内容
drn("所属地州") = Nothing
drn("所属单位") = Nothing
drn("卷宗名称") = Nothing
drn("卷宗册数") = Nothing
drn("录入时间") = Nothing
drn("卷宗编号") = Nothing
drn("承办人") = Nothing
drn("承办部门") = Nothing
drn("联系电话") = Nothing
drn("加密字符")=Nothing
End If
谢谢！
[此贴子已经被作者于2017/10/24 0:04:27编辑过]
加好友 
发短信
Post By：2017/10/23 23:57:00 [只看该作者]
