Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于添加数据


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

主题：关于添加数据
帅哥哟，离线，有人找我吗？
peibaomin
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/9/3 17:09:00 [只看该作者]

老师是我表达错误,是这样的,就是如果该商户已经绑定了机具就复制一个该商户（除商户ID自动编号外其余各列数据都一样）在绑定一台机具
其实就是复制行将该行的数据做为新数据新增一行的意思
[此贴子已经被作者于2017/9/3 17:13:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用peibaomin在2017/9/3 17:09:00的发言：
老师是我表达错误,是这样的,就是如果该商户已经绑定了机具就复制一个该商户（除商户ID自动编号外其余各列数据都一样）在绑定一台机具

 

新增一行，赋值

 

Dim or As Row = tbl.Current

Dim nr As Row = tbl.addnew

nr("某列") = or("某列")

nr("某列") = or("某列")

nr("某列") = or("某列")
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/9/3 17:16:00 [只看该作者]

就是复制行将该行的数据做为新数据新增一行的意思
该怎么怎么复制一行呀？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

认认真真看12楼啊。
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2017/9/3 21:17:00 [只看该作者]

If e.Form.DropDownBox.name="posjishanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "POS机库存资料"
    Dim tbl As Table = Tables("入库商户选择_Table1")
    Dim tbl1 As Table = Tables("POS机库存资料")
    If tbl.Current IsNot Nothing Then
        If tbl1.current.isnull("商户ID") Then
            '赋值操作
            msgbox("绑定成功")
        Else     
            Dim Result As DialogResult = MessageBox.Show("该机具已经绑定商户,是否重新绑定新商户,单击是解绑后重新绑定,单击否放弃绑定新商户", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                '赋值操作
            ElseIf result = DialogResult.No Then
                Dim nr As Row = tbl.addnew
                '赋值操作
            End If
        End if
    End If
End If



老师是不是判断错表啦？应该判断商户资料表中商户是否绑定机具，如果已绑定机具，则执行商户表复制一个商户，不是判断机具是否绑定商户，
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

那你就改一下，要灵活变通代码啊。

 

If tbl.current.isnull("机具ID") Then
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/9/4 0:37:00 [只看该作者]

ElseIf e.Form.DropDownBox.name="posjishanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "POS机库存资料"
        Dim tbl As Table = Tables("入库商户选择_Table1")
        Dim tbl1 As Table = Tables("POS机库存资料")
        If tbl1.Current IsNot Nothing Then
            If tbl.current.isnull("机具ID") Then
                systemready = False
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl1.Current("商户ID") = tbl.Current("商户ID")
                tbl1.Current("商户名称")= tbl.Current("商户名称")
                tbl1.Current("客户ID")= tbl.Current("客户ID")
                tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                tbl.Current("机具ID")= tbl1.Current("机具ID")
                tbl.Current("机具条码")= tbl1.Current("机具条码")
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                systemready =True
                Return
            Else
                Dim Result As DialogResult = MessageBox.Show("该商户已经绑定机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否添加新商户放弃绑定新商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
                If result = DialogResult.Yes Then
                    systemready = False
                    e.Form.DropDownBox.Value = tbl.Current("商户ID")
                    tbl1.Current("商户ID") = tbl.Current("商户ID")
                    tbl1.Current("商户名称")= tbl.Current("商户名称")
                    tbl1.Current("客户ID")= tbl.Current("客户ID")
                    tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                    tbl.Current("机具ID")= tbl1.Current("机具ID")
                    tbl.Current("机具条码")= tbl1.Current("机具条码")
                    msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                    systemready =True
                    Return
                ElseIf result = DialogResult.No Then
                    Dim sr As Row = tbl.Current
                    Dim nr As Row = tbl.addnew
                    systemready = False
                    e.Form.DropDownBox.Value = tbl.Current("商户ID")
                    tbl1.Current("商户ID") = tbl.Current("商户ID")
                    tbl1.Current("商户名称")= tbl.Current("商户名称")
                    tbl1.Current("客户ID")= tbl.Current("客户ID")
                    tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                    tbl.Current("机具ID")= tbl1.Current("机具ID")
                    tbl.Current("机具条码")= tbl1.Current("机具条码")
                    nr("通道名称") = sr("通道名称")
                    nr("网点地址") = sr("网点地址")
                    nr("商户名称") = sr("商户名称")
                    nr("网点名称") = sr("网点名称")
                    nr("网点编号") = sr("网点编号")
                    nr("备注") = sr("备注")
                    nr("商户照片") = sr("商户照片")
                    nr("商户编号") = sr("商户编号")
                    nr("客户ID") = sr("客户ID")
                    nr("法人姓名") = sr("法人姓名")
                    nr("流量卡ID") = sr("流量卡ID")
                    nr("流量卡号") = sr("流量卡号")
                    msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                    systemready =True
                    Return
                End If
            End If
        End If

 

 

老师这样基本能实现以上功能，但是还有一点就是怎么能限制一个商户资料表中的商户不能同时绑定同一台机具呢？如果某一台机具已经被商户绑定，一、可以解绑商户（商户表清空该机具ID和机具条码）重新绑定新商户。二、可取消操作。

 

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

前面再加上代码判断

 

Dim fdr As DataRow = tbl.DataTable.Find("机具Id = '" &  tbl1.Current("机具ID") & "'")

If fdr IsNot Nothing Then

    msgbox("该机具id已经被绑定")

    Return

End If
 回到顶部
帅哥哟，离线，有人找我吗？
peibaomin
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：465 积分：3216 威望：0 精华：0 注册：2017/4/18 1:15:00 		  发帖心情 Post By：2017/9/4 9:58:00 [只看该作者]

老师我想整个流程如下
首先判断该”机具ID”在商户资料表中是否绑定，如果未绑定商户则执行:
一、判断该商户是否已经绑定机具。
（1）如果该商户未绑定任何机具直接绑定，弹出一个提示框提示客户机具已绑定成功。
（2）如果已经绑定机具，则执行弹出一个是否解绑选择对话框有三个选择(是、否、取消)1、选择“是”则执行解绑旧机具后重新绑定新机具；2、如果选择“否”则执行在“商户资料表”中复制并添加一个完全一样该商户然后绑定该机具 ；3、如果选择“取消”则执行取消本次操作。


如果该机具在商户表中已经被绑定则执行:
一、提示客户机具是否解绑商户，如果是则执行:
1、将商户表中的对应的该机具ID号和机具条码清空,将机具库存表中的该商户ID和商户名称清空
2、再执行判断该商户是否已经绑定机具。
（1）如果该商户未绑定任何机具直接绑定，弹出一个提示框提示客户机具已绑定成功。
（2）如果已经绑定机具，则执行弹出一个是否解绑选择对话框有三个选择(是、否、取消)1、选择“是”则执行解绑旧机具后重新绑定新机具；2、如果选择“否”则执行在“商户资料表”中复制并添加一个完全一样该商户然后绑定该机具 ；3、如果选择“取消”则执行取消本次操作。
二、如果选择否则取消本次操作所有数据恢复更改前的数据
[此贴子已经被作者于2017/9/4 9:59:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

ElseIf e.Form.DropDownBox.name="posjishanghuIDDropBox" OrElse e.form.dropTable IsNot Nothing AndAlso e.form.dropTable.Name = "POS机库存资料"
    Dim tbl As Table = Tables("入库商户选择_Table1")
    Dim tbl1 As Table = Tables("POS机库存资料")
    If tbl1.Current IsNot Nothing Then
        Dim fdr As DataRow = tbl.DataTable.Find("机具Id = '" &  tbl1.Current("机具ID") & "'")
        If fdr IsNot Nothing Then
            Dim Result As DialogResult = MessageBox.Show("是否解绑?", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                fdr("机具ID") = Nothing
                fdr("机具条码")= Nothing
                tbl1.Current("商户ID") = Nothing
                tbl1.Current("商户名称")= Nothing
            ElseIf result = DialogResult.No Then
                Dim sr As Row = tbl.Current
                Dim nr As Row = tbl.addnew
                systemready = False
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl1.Current("商户ID") = tbl.Current("商户ID")
                tbl1.Current("商户名称")= tbl.Current("商户名称")
                tbl1.Current("客户ID")= tbl.Current("客户ID")
                tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                tbl.Current("机具ID")= tbl1.Current("机具ID")
                tbl.Current("机具条码")= tbl1.Current("机具条码")
                nr("通道名称") = sr("通道名称")
                nr("网点地址") = sr("网点地址")
                nr("商户名称") = sr("商户名称")
                nr("网点名称") = sr("网点名称")
                nr("网点编号") = sr("网点编号")
                nr("备注") = sr("备注")
                nr("商户照片") = sr("商户照片")
                nr("商户编号") = sr("商户编号")
                nr("客户ID") = sr("客户ID")
                nr("法人姓名") = sr("法人姓名")
                nr("流量卡ID") = sr("流量卡ID")
                nr("流量卡号") = sr("流量卡号")
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                systemready =True
                Return
            Else
                Return
            End If
        End If
        If tbl.current.isnull("机具ID") Then
            systemready = False
            e.Form.DropDownBox.Value = tbl.Current("商户ID")
            tbl1.Current("商户ID") = tbl.Current("商户ID")
            tbl1.Current("商户名称")= tbl.Current("商户名称")
            tbl1.Current("客户ID")= tbl.Current("客户ID")
            tbl1.Current("客户姓名")= tbl.Current("法人姓名")
            tbl.Current("机具ID")= tbl1.Current("机具ID")
            tbl.Current("机具条码")= tbl1.Current("机具条码")
            msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
            systemready =True
            Return
        Else
            Dim Result As DialogResult = MessageBox.Show("该商户已经绑定机具,是否解绑后重新绑定新机具,单击是解绑后重新绑定,单击否添加新商户放弃绑定新商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
            If result = DialogResult.Yes Then
                systemready = False
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl1.Current("商户ID") = tbl.Current("商户ID")
                tbl1.Current("商户名称")= tbl.Current("商户名称")
                tbl1.Current("客户ID")= tbl.Current("客户ID")
                tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                tbl.Current("机具ID")= tbl1.Current("机具ID")
                tbl.Current("机具条码")= tbl1.Current("机具条码")
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                systemready =True
                Return
            ElseIf result = DialogResult.No Then
                Dim sr As Row = tbl.Current
                Dim nr As Row = tbl.addnew
                systemready = False
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                tbl1.Current("商户ID") = tbl.Current("商户ID")
                tbl1.Current("商户名称")= tbl.Current("商户名称")
                tbl1.Current("客户ID")= tbl.Current("客户ID")
                tbl1.Current("客户姓名")= tbl.Current("法人姓名")
                tbl.Current("机具ID")= tbl1.Current("机具ID")
                tbl.Current("机具条码")= tbl1.Current("机具条码")
                nr("通道名称") = sr("通道名称")
                nr("网点地址") = sr("网点地址")
                nr("商户名称") = sr("商户名称")
                nr("网点名称") = sr("网点名称")
                nr("网点编号") = sr("网点编号")
                nr("备注") = sr("备注")
                nr("商户照片") = sr("商户照片")
                nr("商户编号") = sr("商户编号")
                nr("客户ID") = sr("客户ID")
                nr("法人姓名") = sr("法人姓名")
                nr("流量卡ID") = sr("流量卡ID")
                nr("流量卡号") = sr("流量卡号")
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
                systemready =True
                Return
            End If
        End If
    End If
 回到顶部
总数 94 上一页 1 2 3 4 5 6 7 8 9 10 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询