- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 【状态改变】怎么实现第一次新增数据登记状态为“借出”，再次新增数据登记状态为”归还” (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=108490)
-- 发布时间：2017/10/23 23:57:00
-- 【状态改变】怎么实现第一次新增数据登记状态为“借出”，再次新增数据登记状态为”归还”
【状态改变】怎么实现第一次新增数据登记状态为“借出”，再次新增数据登记状态为”归还”
此主题相关图片如下：11.jpg
如何根据卷宗编号 加密字符 来判断【扫码录入】表中
如果数据没有记录 新增一行 登记状态为 借出
间隔时间10秒后 才能再次新增
如果数据有记录 且登记状态为借出 那么登记状态改为 归还
间隔时间10秒后 才能再次新增
对应卷宗编号 加密字符的 新增新记录 登记状态为 借出
间隔时间10秒后 才能再次新增
如果数据有记录 且登记状态为借出 那么登记状态改为 归还
……
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:卷宗管理系统.table |
在卷宗使用窗体中 扫码录入 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编辑过]
-- 发布时间：2017/10/24 8:42:00
--
查询符合条件的记录为0则新增，不为0则归还
-- 发布时间：2017/10/24 9:04:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:卷宗管理系统.table |
-- 发布时间：2017/10/24 9:29:00
-- 回复：（有点甜）[upload=table,卷宗管理系统.table]v...
有点甜老师
KEYDOWN事件
If e.keycode = 13 Then
e.cancel = True
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
dr = DataTables("扫码录入").Find(Filter & " and _Identify <> " & drn("_identify"), "_Identify desc")
If dr Is Nothing OrElse dr("登记状态") = "归还" Then
drn("登记状态") = "借出"
Else
drn("登记状态") = "归还"
End If
End If
End If
是不是只有在连接了扫码枪的时候才能进行哦
非扫码枪的情况下 手动输入字符过去 就无法运行
[此贴子已经被作者于2017/10/24 9:32:16编辑过]
-- 发布时间：2017/10/24 12:07:00
--
输入条码以后，敲击一个回车，即可。