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


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

主题:关于添加数据

帅哥哟,离线,有人找我吗?
裴保民
  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师我选择只判断了"POS机库存资料"机具是否被占用,我现在想在中间再加一个判断,来判断“商户资料表”中是否已经绑定机具了:

1、如果未绑定则执行直接绑定机具

2、如果已绑定机具则执行,提示商户已经绑定机具来让客户选择执行方式

 (1)如果选择是,解除商户绑定的机具,重新绑定机具;

 (2)如果选择否,则执行新增加(将该商户复制一条)一条记录,同时执行该机具绑定商户

 (3)如果选择否,则执行返回不执行任何数据更改。

 

该怎么实现呢?

 

If  e.Form.Controls("jijutiaoma").text =Nothing Then
    If MessageBox.Show("机具条码不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
    Else     
        e.Form.Controls("jijutiaoma").Select
        e.Form.Controls("jijubangding").Enabled= True
        e.Form.Controls("jijujiebang").Enabled= True
    End If
Else
    Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
      e.Form.Controls("jijutiaoma").text
    If dr Is Nothing Then
        msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    ElseIf dr.IsNull("商户ID") = False Then
        msgbox("机具已占用,请核实机具号!")
    Else
        If MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNo) = DialogResult.Yes Then
            dr("商户ID") = Tables("商户资料表").Current("商户ID")
            dr("商户名称") = Tables("商户资料表").Current("商户名称")
            dr("客户ID") = Tables("商户资料表").Current("客户ID")
            dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
            dr("机具是否绑定") = True
            Tables("商户资料表").Current("机具ID")=dr("机具ID")
            Tables("商户资料表").Current("机具条码")=dr("机具条码")
            e.Form.Controls("jijutiaoma").text =Nothing
            e.Form.Controls("jijutiaoma").Enabled= False
            e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
            e.Form.Controls("jijubangding").Enabled=False
            e.Form.Controls("jijujiebang").Enabled= False
        End If
    End If
End If

[此贴子已经被作者于2017/9/16 8:32:26编辑过]

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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/9/16 9:00:00 [只看该作者]

If dr Is Nothing Then
        msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    ElseIf dr.IsNull("商户ID") = False Then
        msgbox("机具已占用,请核实机具号!")
    Else
        If MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNo) = DialogResult.Yes Then
        dr = DataTables("商户资料表").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
If dr Isnot Nothing Then
dim dlg = MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNoCancel)
If dlg = DialogResult.Yes Then
            dr("商户ID") = Tables("商户资料表").Current("商户ID")
            dr("商户名称") = Tables("商户资料表").Current("商户名称")
            dr("客户ID") = Tables("商户资料表").Current("客户ID")
            dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
            dr("机具是否绑定") = True
            Tables("商户资料表").Current("机具ID")=dr("机具ID")
            Tables("商户资料表").Current("机具条码")=dr("机具条码") 
            e.Form.Controls("jijutiaoma").text =Nothing
            e.Form.Controls("jijutiaoma").Enabled= False
            e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
            e.Form.Controls("jijubangding").Enabled=False
            e.Form.Controls("jijujiebang").Enabled= False
elseif dlg = DialogResult.No
'新增加的代码
        End If
end if

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If  e.Form.Controls("jijutiaoma").text =Nothing Then
    If MessageBox.Show("机具条码不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
    Else
        e.Form.Controls("jijutiaoma").Select
        e.Form.Controls("jijubangding").Enabled= True
        e.Form.Controls("jijujiebang").Enabled= True
    End If
Else
    Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
    e.Form.Controls("jijutiaoma").text
    If dr Is Nothing Then
        msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    ElseIf dr.IsNull("商户ID") = False Then
        msgbox("机具已占用,请核实机具号!")
    Else
        If MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNo) = DialogResult.Yes Then
            dr = DataTables("商户资料表").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
            If dr IsNot Nothing Then
                Dim dlg = MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNoCancel)
                If dlg = DialogResult.Yes Then
                    dr("商户ID") = Tables("商户资料表").Current("商户ID")
                    dr("商户名称") = Tables("商户资料表").Current("商户名称")
                    dr("客户ID") = Tables("商户资料表").Current("客户ID")
                    dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
                    dr("机具是否绑定") = True
                    Tables("商户资料表").Current("机具ID")=dr("机具ID")
                    Tables("商户资料表").Current("机具条码")=dr("机具条码")
                    e.Form.Controls("jijutiaoma").text =Nothing
                    e.Form.Controls("jijutiaoma").Enabled= False
                    e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
                    e.Form.Controls("jijubangding").Enabled=False
                    e.Form.Controls("jijujiebang").Enabled= False
                ElseIf dlg = DialogResult.No
                    '新增加的代码
                    Dim tbl As Table =Tables("商户资料表")
                    Dim tbl1 As Table = Tables("POS机库存资料")
                    Dim sr As Row = tbl.Current
                    Dim nr As Row = tbl.addnew
                    e.Form.DropDownBox.Value = tbl.Current("商户ID")
                    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("流量卡号")
                    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("机具条码")
                    If tbl1.Current("商户ID") IsNot Nothing Then
                        tbl1.Current("机具是否绑定")= True
                    Else
                        tbl1.Current("机具是否绑定")= False
                    End If
                    msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")                 
                End If
            End If
        End If
    End If    
End If


老师这句代码哪有问题呢?怎么绑定不了呢?

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


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

上传具体实例说明。说明哪里有问题。

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


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

您看看判断语句顺序是不是有问题保存不了数据

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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


图片点击可在新窗口打开查看此主题相关图片如下:4563211.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:商户入库数据同步.rar


先单击“机具状态修改”再输入机具号 再单击"机具绑定"按钮
当弹出是否绑定商户,选择是与否都不绑定商户


[此贴子已经被作者于2017/9/17 16:38:35编辑过]

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


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

If  e.Form.Controls("jijutiaoma").text =Nothing Then
    If MessageBox.Show("机具条码不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
    Else
        e.Form.Controls("jijutiaoma").Select
        e.Form.Controls("jijubangding").Enabled= True
        e.Form.Controls("jijujiebang").Enabled= True
    End If
Else
    Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
    e.Form.Controls("jijutiaoma").text
    If dr Is Nothing Then
        msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    ElseIf dr.IsNull("商户ID") = False Then
        msgbox("机具已占用,请核实机具号!")
    Else
        If MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Dim fdr = DataTables("商户资料表").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
            If fdr IsNot Nothing Then
                Dim dlg = MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNoCancel)
                If dlg = DialogResult.Yes Then
                    dr("商户ID") = Tables("商户资料表").Current("商户ID")
                    dr("商户名称") = Tables("商户资料表").Current("商户名称")
                    dr("客户ID") = Tables("商户资料表").Current("客户ID")
                    dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
                    dr("机具是否绑定") = True
                    Tables("商户资料表").Current("机具ID")=dr("机具ID")
                    Tables("商户资料表").Current("机具条码")=dr("机具条码")
                    e.Form.Controls("jijutiaoma").text =Nothing
                    e.Form.Controls("jijutiaoma").Enabled= False
                    e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
                    e.Form.Controls("jijubangding").Enabled=False
                    e.Form.Controls("jijujiebang").Enabled= False
                ElseIf dlg = DialogResult.No
                    '新增加的代码
                    Dim tbl As Table =Tables("商户资料表")
                    Dim tbl1 As Table = Tables("POS机库存资料")
                    Dim sr As Row = tbl.Current
                    Dim nr As Row = tbl.addnew
                    e.Form.DropDownBox.Value = tbl.Current("商户ID")
                    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("流量卡号")
                    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("机具条码")
                    If tbl1.Current("商户ID") IsNot Nothing Then
                        tbl1.Current("机具是否绑定")= True
                    Else
                        tbl1.Current("机具是否绑定")= False
                    End If
                    msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")                
                End If
            End If
        End If
    End If   
End If


 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

经过测试单击“机具绑定”没反应

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:商户入库数据同步1.rar


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


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

If  e.Form.Controls("jijutiaoma").text =Nothing Then
    If MessageBox.Show("机具条码不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        e.Form.Controls("jijutiaoma").text =Nothing
        e.Form.Controls("jijutiaoma").Enabled= False
        e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
        e.Form.Controls("jijubangding").Enabled=False
        e.Form.Controls("jijujiebang").Enabled= False
    Else
        e.Form.Controls("jijutiaoma").Select
        e.Form.Controls("jijubangding").Enabled= True
        e.Form.Controls("jijujiebang").Enabled= True
    End If
Else
    Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
    e.Form.Controls("jijutiaoma").text
    If dr Is Nothing Then
        msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    ElseIf dr.IsNull("商户ID") = False Then
        msgbox("机具已占用,请核实机具号!")
    Else
        If MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNo) = DialogResult.Yes Then
            Dim dlg = MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNoCancel)
            If dlg = DialogResult.Yes Then
                dr("商户ID") = Tables("商户资料表").Current("商户ID")
                dr("商户名称") = Tables("商户资料表").Current("商户名称")
                dr("客户ID") = Tables("商户资料表").Current("客户ID")
                dr("客户姓名") = Tables("商户资料表").Current("法人姓名")
                dr("机具是否绑定") = True
                Tables("商户资料表").Current("机具ID")=dr("机具ID")
                Tables("商户资料表").Current("机具条码")=dr("机具条码")
                e.Form.Controls("jijutiaoma").text =Nothing
                e.Form.Controls("jijutiaoma").Enabled= False
                e.Form.Controls("jijuzhuangtaixiegai").Enabled=True
                e.Form.Controls("jijubangding").Enabled=False
                e.Form.Controls("jijujiebang").Enabled= False
            ElseIf dlg = DialogResult.No
                '新增加的代码
                msgbox(2)
                Dim tbl As Table =Tables("商户资料表")
                Dim tbl1 As Table = Tables("POS机库存资料")
                Dim sr As Row = tbl.Current
                Dim nr As Row = tbl.addnew
                e.Form.DropDownBox.Value = tbl.Current("商户ID")
                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("流量卡号")
                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("机具条码")
                If tbl1.Current("商户ID") IsNot Nothing Then
                    tbl1.Current("机具是否绑定")= True
                Else
                    tbl1.Current("机具是否绑定")= False
                End If
                msgbox(tbl1.Current("商户名称") & "机具成功绑定商户 ")
            End If
        End If
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

甜老师我的上面的代码逻辑好像有问题您给看看,我想实现:

1、判断机具条码输入框不能为空,不为空向下进行。

2判断所输入的机具条码在“POS机库存资料”是否存在,如果不存在则提示客户不存在并终止向下进行,如果机具条码存在再判断机具是否被商户绑定,如果已被商户绑定则提示客户机具已被商户绑定并终止向下进行,如果未被商户绑定,则执行以下各个功能

3、判断该商户是否已绑定其他机具, 如果未绑定其他机具就则执行直接绑定机具,提示客户绑定成功。

4、如果该商户已绑定其他机具则执行,提示客户该商户已经绑定其他机具,弹出一个对话框来让客户选择执行方式

 (1)如果选择是,则执行解除该商户原来绑定的机具(在清除商户资料表的机具ID和机具条码的同时也要将pos机库存资料表中的商户ID、商户名称清空),重新绑定机具(在给商户资料表的机具ID和机具条码赋值的同时要将pos机库存资料表中的商户ID、商户名称赋值);

 (2)如果选择否,则执行新增加(复制一条该商户)一条记录,同时执行将该机具绑定到新增加的商户上

 (3)如果选择否,则执行返回不执行任何数据更改。所有更改的数据恢复更改前的值

 

[此贴子已经被作者于2017/9/18 7:00:24编辑过]

 回到顶部
总数 94 上一页 1 2 3 4 5 6 7 8 9 10 下一页