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


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

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


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

老师我怎么实现（1）、“流量卡绑定商户历史记录”只给新增的记录绑定日期赋值,因为刚绑定商户还没有解绑商户所有解绑字段不有赋值,但在新增记录的同时要给“流量卡绑定商户历史记录表”中刚才解绑的流量卡绑定记录赋值解绑日期。
[此贴子已经被作者于2017/9/25 9:33:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  72楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 先查找历史表记录，赋值解绑日期；然后你再新增一行。顺序不能倒过来。

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


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

还是同样错误

 


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

[此贴子已经被作者于2017/9/25 20:06:07编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  74楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If  e.Form.Controls("liuliangkahao").text =Nothing Then

改为

If  e.Form.Controls("liuliangkahao").text = "" Then

以后记得不过在任何地方使用到Current的地方都要判断一下是否为空
……
if ables("商户资料表").Current is nothing then return 

If Tables("商户资料表").Current.Isnull("流量卡ID") Then
    dr("商户ID") = Tables("商户资料表").Current("商户ID")
    dr("商户名称") = Tables("商户资料表").Current("商户名称")
    dr("客户ID") = Tables("商户资料表").Current("客户ID")
……

其它情况自己跟踪一下看运行到哪一句代码出错
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

还是一样的错误

 


图片点击可在新窗口打开查看此主题相关图片如下：1285.png
图片点击可在新窗口打开查看

 


 

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

[此贴子已经被作者于2017/9/25 20:49:52编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  76楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以后记得不管在任何地方使用到Current的地方都要判断一下是否为空
……
if ables("商户资料表").Current is nothing then return 

If Tables("商户资料表").Current.Isnull("流量卡ID") Then
    dr("商户ID") = Tables("商户资料表").Current("商户ID")
    dr("商户名称") = Tables("商户资料表").Current("商户名称")
    dr("客户ID") = Tables("商户资料表").Current("客户ID")
……

其它情况自己跟踪一下看运行到哪一句代码出错
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If  e.Form.Controls("liuliangkahao").text =""  Then
    If MessageBox.Show("流量卡号不能为空,是否继续绑定","提示",MessageBoxButtons.YesNo) =DialogResult.No Then
        e.Form.Controls("liuliangkahao").value=Nothing
        e.Form.Controls("liuliangkahao").Enabled= False
        e.Form.Controls("liuliangkezhuangtaixiugai").Enabled=True
        e.Form.Controls("liuliangkejiebang ").Enabled= False
        e.Form.Controls("liuliangkabangding").Enabled= False
        Return
    End If
End If
Dim dr As DataRow = DataTables("流量卡资料").Find("流量卡号='" & e.Form.Controls("liuliangkahao").text & "'")
e.Form.Controls("liuliangkahao").text
If dr Is Nothing Then
    msgbox("没有查到符合条件的数据,请核实流量卡是否入库!")
    Return
ElseIf dr.IsNull("商户ID") = False Then
    msgbox("流量卡已占用,请核实流量卡号!")
    Return
End If
If Tables("商户资料表").Current Is Nothing Then Return 
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("流量卡号")
    Dim lsjl As Table =Tables("流量卡绑定商户历史记录表")
    Dim sr As Row =  lsjl .Current
    Dim nr As DataRow =  lsjl.DataTable.addnew
    nr("流量卡ID") =dr("流量卡ID")
    nr("流量卡号") =dr("流量卡号")
    nr("类型") =dr("类型")
    nr("商户ID") =dr("商户ID")
    nr("商户名称") =dr("商户名称")
    nr("客户ID") =dr("客户ID")
    nr("客户姓名") =dr("客户姓名")
    nr("绑定日期") =Date.Today
    e.Form.Controls("liuliangkahao").text =Nothing
    e.Form.Controls("liuliangkahao").Enabled= False
    e.Form.Controls("liuliangkezhuangtaixiugai").Enabled=True
    e.Form.Controls("liuliangkabangding").Enabled=False
    e.Form.Controls("liuliangkejiebang ").Enabled= False
    msgbox("该流量卡已成功绑定该商户")
Else
    Dim dlg = MessageBox.Show("该商户已经绑定其他流量卡,是否解绑后重新绑定新流量卡,单击是解绑后重新绑定,单击否则添加新商户并绑定到新增的商户,单击取消放弃操作", "提示", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
    If dlg = DialogResult.Yes Then
        For Each fdr As DataRow In DataTables("流量卡资料").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("流量卡号")
        Dim lsjl As Table =Tables("流量卡绑定商户历史记录表")
        Dim sr As Row =  lsjl .Current
        Dim nr As DataRow =  lsjl.DataTable.addnew
        nr("流量卡ID") =dr("流量卡ID")
        nr("流量卡号") =dr("流量卡号")
        nr("类型") =dr("类型")
        nr("商户ID") =dr("商户ID")
        nr("商户名称") =dr("商户名称")
        nr("客户ID") =dr("客户ID")
        nr("客户姓名") =dr("客户姓名")
        nr("绑定日期") =Date.Today
        Dim lsdr As DataRow = DataTables("流量卡绑定商户历史记录表").Find("流量卡号='" & dr("流量卡号") & "' and 解绑日期 is null")
        If lsdr IsNot Nothing Then
            nr("解绑日期") =Date.Today
            msgbox(lsdr("解绑日期"))
            Return
        Else
            Return
        End If     
        e.Form.Controls("liuliangkahao").text =Nothing
        e.Form.Controls("liuliangkahao").Enabled= False
        e.Form.Controls("liuliangkezhuangtaixiugai").Enabled=True
        e.Form.Controls("liuliangkabangding").Enabled=False
        e.Form.Controls("liuliangkejiebang ").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") = nr("商户ID")
        dr("商户名称") = nr("商户名称")
        dr("客户ID") = nr("客户ID")
        dr("客户姓名") = nr("法人姓名")
        dr("是否绑定") = True
        nr("流量卡ID")=dr("流量卡ID")
        nr("流量卡号")=dr("流量卡号")
Dim lsjl As DataRow = DataTables("流量卡绑定商户历史记录表").Find("流量卡号='" & dr("流量卡号") & "' and 解绑日期 is null")
        If lsjl  IsNot Nothing Then
            lsjl ("解绑日期") =Date.Today
            lsjl =  DataTables("流量卡绑定商户历史记录表").addnew
            lsjl ("流量卡ID") =dr("流量卡ID")
            lsjl ("流量卡号") =dr("流量卡号")
            lsjl ("类型") =dr("类型")
            lsjl ("商户ID") =dr("商户ID")
            lsjl ("商户名称") =dr("商户名称")
            lsjl ("客户ID") =dr("客户ID")
            lsjl ("客户姓名") =dr("客户姓名")
        End If      
        msgbox("流量卡成功绑定商户 ")
    End If
End If
有点蓝老师按您的思路写了还是同样的错误，麻烦您给看看这段代码错误的地在哪？
[此贴子已经被作者于2017/9/25 21:09:46编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  78楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

看运行到那一句代码出错

还有一个地方没有判断

Dim sr As Row =  lsjl .Current
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  79楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

老师经过测试实在不知道哪的错误
就是执行下面段代码时出错的
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") = nr("商户ID")
        dr("商户名称") = nr("商户名称")
        dr("客户ID") = nr("客户ID")
        dr("客户姓名") = nr("法人姓名")
        dr("是否绑定") = True
        nr("流量卡ID")=dr("流量卡ID")
        nr("流量卡号")=dr("流量卡号")
Dim lsjl As DataRow = DataTables("流量卡绑定商户历史记录表").Find("流量卡号='" & dr("流量卡号") & "' and 解绑日期 is null")
        If lsjl  IsNot Nothing Then
            lsjl ("解绑日期") =Date.Today
            lsjl =  DataTables("流量卡绑定商户历史记录表").addnew
            lsjl ("流量卡ID") =dr("流量卡ID")
            lsjl ("流量卡号") =dr("流量卡号")
            lsjl ("类型") =dr("类型")
            lsjl ("商户ID") =dr("商户ID")
            lsjl ("商户名称") =dr("商户名称")
            lsjl ("客户ID") =dr("客户ID")
            lsjl ("客户姓名") =dr("客户姓名")
        End If      
        msgbox("流量卡成功绑定商户 ")
    End If
您看看是什么原因呢？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以后记得不管在任何地方使用到Current的地方都要判断一下是否为空

if lsjl .Current isnot nothing hen
Dim sr As Row =  lsjl .Current
.............
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.07031 秒, 6 次数据查询