Foxtable(狐表)用户栏目专家坐堂 → 【状态改变】怎么实现第一次新增数据登记状态为“借出”,再次新增数据登记状态为”归还”


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

主题:【状态改变】怎么实现第一次新增数据登记状态为“借出”,再次新增数据登记状态为”归还”

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
【状态改变】怎么实现第一次新增数据登记状态为“借出”,再次新增数据登记状态为”归还”  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大王派我玩狐表
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:21 积分:251 威望:0 精华:0 注册:2017/10/23 16:02:00
  发帖心情 Post By:2017/10/24 8:42:00 [只看该作者]

查询符合条件的记录为0则新增,不为0则归还

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


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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:卷宗管理系统.table


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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜)[upload=table,卷宗管理系统.table]v...  发帖心情 Post By:2017/10/24 9:29:00 [只看该作者]

有点甜老师  
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编辑过]

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


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

输入条码以后,敲击一个回车,即可。


 回到顶部