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


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

主题:关于添加数据

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 9: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
        Return
    End If
End If
Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
e.Form.Controls("jijutiaoma").text
If dr Is Nothing Then
    msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    Return
ElseIf dr.IsNull("商户ID") = False Then
    msgbox("机具已占用,请核实机具号!")
    Return
End If
systemready = False
If Tables("商户资料表").Current.Isnull("机具ID") 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
    msgbox("成功")
Else
    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
        msgbox("绑定成功")
    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
systemready = True

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


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

甜老师经过测试出现一下错误:
(1)如果商户资料表中商户已经绑定其它机具时:点击确认按钮时:商户资料表原有数据的机具ID和机具条码不清空,单击否会出现1、添加的是一个空数据行(不是复制所选的行)2、复制的数据行未绑定机具3、出现错误信息

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/9/18 14:39: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
        Return
    End If
End If
Dim dr As DataRow = DataTables("POS机库存资料").Find("机具条码='" & e.Form.Controls("jijutiaoma").text & "'")
e.Form.Controls("jijutiaoma").text
If dr Is Nothing Then
    msgbox("没有查到符合条件的数据,请核实机具是否入库!")
    Return
ElseIf dr.IsNull("商户ID") = False Then
    msgbox("机具已占用,请核实机具号!")
    Return
End If
systemready = False
If Tables("商户资料表").Current.Isnull("机具ID") 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
    msgbox("成功")
Else
    Dim dlg = MessageBox.Show("是否绑定?","确定绑定",MessageBoxButtons.YesNoCancel)
    If dlg = DialogResult.Yes Then
        For Each fdr As DataRow In DataTables("POS机库存资料").Select("机具id='" & Tables("商户资料表").Current("机具id") & "'")
            fdr("商户ID") = Nothing
            fdr("商户名称") = Nothing
            fdr("客户ID") = Nothing
            fdr("客户姓名") = Nothing
            fdr("机具是否绑定") = False
           
        Next
        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
        msgbox("绑定成功")
    ElseIf dlg = DialogResult.No
        '新增加的代码
        Dim tbl As Table =Tables("商户资料表")
        Dim sr As Row = tbl.Current
        Dim nr As DataRow = tbl.DataTable.addnew
        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("流量卡号")
        dr("商户ID") = sr("商户ID")
        dr("商户名称") = sr("商户名称")
        dr("客户ID") = sr("客户ID")
        dr("客户姓名") = sr("法人姓名")
        dr("机具是否绑定") = True
        nr("机具ID")=dr("机具ID")
        nr("机具条码")=dr("机具条码")
        msgbox("机具成功绑定商户 ")
       
    End If
End If
systemready = True

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


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


图片点击可在新窗口打开查看此主题相关图片如下:cf 3.jpg
图片点击可在新窗口打开查看
甜老师商户资料表出现重复绑定同一机具 并且不清空商户资料表原有数据的机具ID和机具条码不清空

图片点击可在新窗口打开查看此主题相关图片如下:cf.jpg
图片点击可在新窗口打开查看


如果商户资料表已经绑定机具的情况下单击否新增加的商户怎么商户ID是空值呢?这个值不是自动赋值吗?是不是给清空了呀?

图片点击可在新窗口打开查看此主题相关图片如下:cf2.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2017/9/18 16:08:49编辑过]

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


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

查找删除

 

        For Each fdr As DataRow In DataTables("商户资料表").Select("机具id='5666'")
            fdr("机具ID") = Nothing
            fdr("机具条码") = Nothing
        Next


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


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


图片点击可在新窗口打开查看此主题相关图片如下:cf 3.jpg
图片点击可在新窗口打开查看
如果商户资料表已经绑定机具的情况下单击否新增加的商户怎么商户ID是空值呢?这个值本来就是自动赋值的,是不是给清空了呀?老师给看看哪的原因?

图片点击可在新窗口打开查看此主题相关图片如下:cf2.jpg
图片点击可在新窗口打开查看
老师是什么原因商户资料表增加行后商户ID是空值呢?

[此贴子已经被作者于2017/9/18 18:33:22编辑过]

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


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

因为用到了 systemReady = False 这样的代码,所以不会触发你的表事件,你可以删除对应代码。


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


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

老师systemReady = False起的什么作用呢?我把他删除了受影响吗?

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


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

以下是引用裴保民在2017/9/18 18:56:00的发言:
老师systemReady = False起的什么作用呢?我把他删除了受影响吗?

 

参考 http://www.foxtable.com/webhelp/scr/2218.htm

 


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


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

要想解决以上问题是不是只有将systemready 设置成True或删除这段代码吗?删除后添加数据时如果发生错误就无法处理了吗?
有好的解决方法吗?




还有一个问题就是当绑定新增的商户时绑定的不是新增的商户而是老商户,老师你测试测试
[此贴子已经被作者于2017/9/18 20:25:58编辑过]

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