Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 新增报错


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

主题：[求助] 新增报错
帅哥哟，离线，有人找我吗？
青岛立邦达
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：99 积分：732 威望：0 精华：0 注册：2014/6/11 15:06:00 		[求助] 新增报错  发帖心情 Post By：2014/8/29 9:17:00 [只看该作者]

此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

代码如下：


Dim dr As DataRow = DataTables("客户黑名单").find("客户='" & e.form.controls("客户").text & "'")
If dr IsNot Nothing Then
    msgbox("黑名单客户,无法登记")
    Return
End If


Dim r1 As Row = Tables("检测维修单").addnew
Dim r2 As Row = Tables("技术支持部总表").addnew

r1("客户")= e.form.controls("客户").text
r2("客户")= e.form.controls("客户").text

r1("联系方式")= e.form.controls("联系方式").text
r2("联系方式")= e.form.controls("联系方式").text

r1("型号")= e.form.controls("机器型号").text
r2("机器型号")= e.form.controls("机器型号").text

r1("故障")= e.form.controls("故障现象描述").text
r2("故障现象描述")= e.form.controls("故障现象描述").text

r1("接修日期")= e.form.controls("返厂时间").text
r2("检测时间")= e.form.controls("检测时间").text

r1("保修状态")= e.form.controls("保修状态").text
r2("保修状态")= e.form.controls("保修状态").text

r1("维修完成时间")= e.form.controls("维修时间").text
r2("维修完成时间")= e.form.controls("维修时间").text

r1("维修员")= e.form.controls("维修员").text
r2("维修员")= e.form.controls("维修员").text

r1("发货时间")= e.form.controls("发货时间").text
r2("发货时间")= e.form.controls("发货时间").text

r1("修品类别")= e.form.controls("维修类型").text
r2("维修类型")= e.form.controls("维修类型").text

r1("序列号")= e.form.controls("机器条码").text
r2("机器条码")= e.form.controls("机器条码").text

r1("分值")= e.form.controls("分值").text
r2("分值")= e.form.controls("分值").text

r2("备注")= e.form.controls("备注").text
r2("返厂日期")= e.form.controls("返厂时间").text
r2("维修周期")= e.form.controls("维修周期").text
r2("使用行业")= e.form.controls("使用行业").text
r2("运行状态")= e.form.controls("运行状态").text
r2("外围损坏")= e.form.controls("外围损坏").text
r2("工作环境")= e.form.controls("工作环境").text
r2("备注一")= e.form.controls("备注一").text
r2("收费情况")= e.form.controls("收费情况").text
r2("损坏元件详细清单")= e.form.controls("损坏元件详细清单").text
r2("机器运行时间")= e.form.controls("机器运行时间").text
r2("更换部件清单")= e.form.controls("更换部件清单").text
r2("内部参数_故障记录一")= e.form.controls("故障记录一").text
r2("内部参数_故障记录二")= e.form.controls("故障记录二").text
r2("内部参数_故障记录三")= e.form.controls("故障记录三").text
r2("内部参数_故障电流")= e.form.controls("故障电流").text
r2("内部参数_其他参数")= e.form.controls("其他参数").text
r2("维修状况")= e.form.controls("维修状况").text
r2("维修状况原因")= e.form.controls("维修原因").text
r2("备注二")= e.form.controls("备注二").text
r2("检查结果及损坏原因分析")= e.form.controls("检查结果及损坏原因分析").text
r2("问题追溯_设计问题")= e.form.controls("设计问题").text
r2("问题追溯_材料问题")= e.form.controls("材料问题").text
r2("问题追溯_制程问题")= e.form.controls("制程问题").text
r2("问题追溯_应用问题")= e.form.controls("应用问题").text
r2("问题追溯_其他故障原因")= e.form.controls("其他故障原因").text
r2("检测人")= e.form.controls("检测人").text
r2("发货人")= e.form.controls("发货人").text


    e.form.controls("客户").text = ""
    e.form.controls("联系方式").text = ""
    e.form.controls("机器型号").text = ""
    e.form.controls("故障现象描述").text = ""
    e.form.controls("检测时间").text = ""
    e.form.controls("保修状态").text = ""
    e.form.controls("维修时间").text = ""
    e.form.controls("维修员").text = ""
    e.form.controls("发货时间").text = ""
    e.form.controls("维修类型").text = ""
    e.form.controls("机器条码").text = ""
    e.form.controls("分值").text = ""
        e.form.controls("联系方式").text = ""
        
        
        e.form.controls("机器型号").text = ""
        
        
        e.form.controls("故障现象描述").text = ""
        
        
        e.form.controls("检测时间").text = ""
        
        
        e.form.controls("保修状态").text = ""
        
        
        e.form.controls("维修时间").text = ""
        
        
        e.form.controls("维修员").text = ""
        
        
        e.form.controls("发货时间").text = ""
        
        
        e.form.controls("维修类型").text = ""
        
        e.form.controls("机器条码").text = ""
        
        
        e.form.controls("分值").text = ""
        e.form.controls("备注").text = ""
        e.form.controls("返厂时间").text = ""
        e.form.controls("维修周期").text = ""
        e.form.controls("使用行业").text = ""
        e.form.controls("运行状态").text = ""
        e.form.controls("外围损坏").text = ""
        e.form.controls("工作环境").text = ""
        e.form.controls("备注一").text = ""
        e.form.controls("收费情况").text = ""
        e.form.controls("损坏元件详细清单").text = ""
        e.form.controls("机器运行时间").text = ""
        e.form.controls("更换部件清单").text = ""
        e.form.controls("故障记录一").text = ""
        e.form.controls("故障记录二").text = ""
        e.form.controls("故障记录三").text = ""
        e.form.controls("故障电流").text = ""
        e.form.controls("其他参数").text = ""
        e.form.controls("维修状况").text = ""
        e.form.controls("维修原因").text = ""
        e.form.controls("备注二").text = ""
        e.form.controls("检查结果及损坏原因分析").text = ""
        e.form.controls("设计问题").text = ""
        e.form.controls("材料问题").text = ""
        e.form.controls("制程问题").text = ""
        e.form.controls("应用问题").text = ""
        e.form.controls("其他故障原因").text = ""
        e.form.controls("检测人").text = ""
        e.form.controls("发货人").text = ""

If Tables("检测维修单").Current.IsNull("型号") Then
    Messagebox.Show("机器型号不能为空!")

Tables("技术支持部总表").Current.Delete
Tables("检测维修单").Current.Delete
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 你做了一大周折，最后为什么要把行删除？如果不需要，之前，就不要新增行。

 

If Tables("检测维修单").Current.IsNull("型号") Then
    Messagebox.Show("机器型号不能为空!")
       
    r.Delete
    r.Delete
End If
 回到顶部
帅哥哟，离线，有人找我吗？
青岛立邦达
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：99 积分：732 威望：0 精华：0 注册：2014/6/11 15:06:00 		  发帖心情 Post By：2014/8/29 9:33:00 [只看该作者]

还是报错。输入客户和机器型号以后就报错，填写其他的没问题
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:立邦达售后服务管理系统v1.5.table

[此贴子已经被作者于2014-8-29 9:33:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 关键是你想干嘛啊。为什么新增后，又删除？

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


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

测试你的例子，并没有报错。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
青岛立邦达
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：99 积分：732 威望：0 精华：0 注册：2014/6/11 15:06:00 		  发帖心情 Post By：2014/8/29 9:47:00 [只看该作者]

不加删除的话  以前资料没填就点新增 会在表中出现空白行。
上完整例子了。刚测试了一下 还是会报错的。
 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:售后服务管理系统v1.5.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 对你无语了，你就不能在前面检测么？

 

If e.form.controls("机器型号").text = "" Then
    Messagebox.Show("机器型号不能为空!")
    return
End If
 回到顶部
帅哥哟，离线，有人找我吗？
青岛立邦达
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：99 积分：732 威望：0 精华：0 注册：2014/6/11 15:06:00 		  发帖心情 Post By：2014/8/29 13:31:00 [只看该作者]

是这样吗？貌似还是报错

Dim dr As DataRow = DataTables("客户黑名单").find("客户='" & e.form.controls("客户").text & "'")
If dr IsNot Nothing Then
    msgbox("黑名单客户,无法登记")
    Return
End If
If e.form.controls("机器型号").text = "" Then
    Messagebox.Show("机器型号不能为空!")
    Return

End If
Dim r1 As Row = Tables("检测维修单").addnew
Dim r2 As Row = Tables("技术支持部总表").addnew

r1("客户")= e.form.controls("客户").text
r2("客户")= e.form.controls("客户").text

r1("联系方式")= e.form.controls("联系方式").text
r2("联系方式")= e.form.controls("联系方式").text

r1("型号")= e.form.controls("机器型号").text
r2("机器型号")= e.form.controls("机器型号").text

r1("故障")= e.form.controls("故障现象描述").text
r2("故障现象描述")= e.form.controls("故障现象描述").text

r1("接修日期")= e.form.controls("返厂时间").text
r2("检测时间")= e.form.controls("检测时间").text

r1("保修状态")= e.form.controls("保修状态").text
r2("保修状态")= e.form.controls("保修状态").text

r1("维修完成时间")= e.form.controls("维修时间").text
r2("维修完成时间")= e.form.controls("维修时间").text

r1("维修员")= e.form.controls("维修员").text
r2("维修员")= e.form.controls("维修员").text

r1("发货时间")= e.form.controls("发货时间").text
r2("发货时间")= e.form.controls("发货时间").text

r1("修品类别")= e.form.controls("维修类型").text
r2("维修类型")= e.form.controls("维修类型").text

r1("序列号")= e.form.controls("机器条码").text
r2("机器条码")= e.form.controls("机器条码").text

r1("分值")= e.form.controls("分值").text
r2("分值")= e.form.controls("分值").text

r2("备注")= e.form.controls("备注").text
r2("返厂日期")= e.form.controls("返厂时间").text
r2("维修周期")= e.form.controls("维修周期").text
r2("使用行业")= e.form.controls("使用行业").text
r2("运行状态")= e.form.controls("运行状态").text
r2("外围损坏")= e.form.controls("外围损坏").text
r2("工作环境")= e.form.controls("工作环境").text
r2("备注一")= e.form.controls("备注一").text
r2("收费情况")= e.form.controls("收费情况").text
r2("损坏元件详细清单")= e.form.controls("损坏元件详细清单").text
r2("机器运行时间")= e.form.controls("机器运行时间").text
r2("更换部件清单")= e.form.controls("更换部件清单").text
r2("内部参数_故障记录一")= e.form.controls("故障记录一").text
r2("内部参数_故障记录二")= e.form.controls("故障记录二").text
r2("内部参数_故障记录三")= e.form.controls("故障记录三").text
r2("内部参数_故障电流")= e.form.controls("故障电流").text
r2("内部参数_其他参数")= e.form.controls("其他参数").text
r2("维修状况")= e.form.controls("维修状况").text
r2("维修状况原因")= e.form.controls("维修原因").text
r2("备注二")= e.form.controls("备注二").text
r2("检查结果及损坏原因分析")= e.form.controls("检查结果及损坏原因分析").text
r2("问题追溯_设计问题")= e.form.controls("设计问题").text
r2("问题追溯_材料问题")= e.form.controls("材料问题").text
r2("问题追溯_制程问题")= e.form.controls("制程问题").text
r2("问题追溯_应用问题")= e.form.controls("应用问题").text
r2("问题追溯_其他故障原因")= e.form.controls("其他故障原因").text
r2("检测人")= e.form.controls("检测人").text
r2("发货人")= e.form.controls("发货人").text


    e.form.controls("客户").text = ""
    e.form.controls("联系方式").text = ""
    e.form.controls("机器型号").text = ""
    e.form.controls("故障现象描述").text = ""
    e.form.controls("检测时间").text = ""
    e.form.controls("保修状态").text = ""
    e.form.controls("维修时间").text = ""
    e.form.controls("维修员").text = ""
    e.form.controls("发货时间").text = ""
    e.form.controls("维修类型").text = ""
    e.form.controls("机器条码").text = ""
    e.form.controls("分值").text = ""
        e.form.controls("联系方式").text = ""
        
        
        e.form.controls("机器型号").text = ""
        
        
        e.form.controls("故障现象描述").text = ""
        
        
        e.form.controls("检测时间").text = ""
        
        
        e.form.controls("保修状态").text = ""
        
        
        e.form.controls("维修时间").text = ""
        
        
        e.form.controls("维修员").text = ""
        
        
        e.form.controls("发货时间").text = ""
        
        
        e.form.controls("维修类型").text = ""
        
        e.form.controls("机器条码").text = ""
        
        
        e.form.controls("分值").text = ""
        e.form.controls("备注").text = ""
        e.form.controls("返厂时间").text = ""
        e.form.controls("维修周期").text = ""
        e.form.controls("使用行业").text = ""
        e.form.controls("运行状态").text = ""
        e.form.controls("外围损坏").text = ""
        e.form.controls("工作环境").text = ""
        e.form.controls("备注一").text = ""
        e.form.controls("收费情况").text = ""
        e.form.controls("损坏元件详细清单").text = ""
        e.form.controls("机器运行时间").text = ""
        e.form.controls("更换部件清单").text = ""
        e.form.controls("故障记录一").text = ""
        e.form.controls("故障记录二").text = ""
        e.form.controls("故障记录三").text = ""
        e.form.controls("故障电流").text = ""
        e.form.controls("其他参数").text = ""
        e.form.controls("维修状况").text = ""
        e.form.controls("维修原因").text = ""
        e.form.controls("备注二").text = ""
        e.form.controls("检查结果及损坏原因分析").text = ""
        e.form.controls("设计问题").text = ""
        e.form.controls("材料问题").text = ""
        e.form.controls("制程问题").text = ""
        e.form.controls("应用问题").text = ""
        e.form.controls("其他故障原因").text = ""
        e.form.controls("检测人").text = ""
        e.form.controls("发货人").text = ""
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Dim dr As DataRow = DataTables("客户黑名单").find("客户='" & e.form.controls("客户").text & "'")
If dr IsNot Nothing Then
    msgbox("黑名单客户,无法登记")
    Return
End If

If e.form.controls("机器型号").text = "" Then
    Messagebox.Show("机器型号不能为空!")
    Return
End If

SystemReady = False
Dim r1 As Row = Tables("检测维修单").addnew
Dim r2 As Row = Tables("技术支持部总表").addnew

r1("客户")= e.form.controls("客户").text
r2("客户")= e.form.controls("客户").text

r1("联系方式")= e.form.controls("联系方式").text
r2("联系方式")= e.form.controls("联系方式").text

r1("型号")= e.form.controls("机器型号").text
r2("机器型号")= e.form.controls("机器型号").text

r1("故障")= e.form.controls("故障现象描述").text
r2("故障现象描述")= e.form.controls("故障现象描述").text

r1("接修日期")= e.form.controls("返厂时间").text
r2("检测时间")= e.form.controls("检测时间").text

r1("保修状态")= e.form.controls("保修状态").text
r2("保修状态")= e.form.controls("保修状态").text

r1("维修完成时间")= e.form.controls("维修时间").text
r2("维修完成时间")= e.form.controls("维修时间").text

r1("维修员")= e.form.controls("维修员").text
r2("维修员")= e.form.controls("维修员").text

r1("发货时间")= e.form.controls("发货时间").text
r2("发货时间")= e.form.controls("发货时间").text

r1("修品类别")= e.form.controls("维修类型").text
r2("维修类型")= e.form.controls("维修类型").text

r1("序列号")= e.form.controls("机器条码").text
r2("机器条码")= e.form.controls("机器条码").text

r1("分值")= e.form.controls("分值").text
r2("分值")= e.form.controls("分值").text

r2("备注")= e.form.controls("备注").text
r2("返厂日期")= e.form.controls("返厂时间").text
r2("维修周期")= e.form.controls("维修周期").text
r2("使用行业")= e.form.controls("使用行业").text
r2("运行状态")= e.form.controls("运行状态").text
r2("外围损坏")= e.form.controls("外围损坏").text
r2("工作环境")= e.form.controls("工作环境").text
r2("备注一")= e.form.controls("备注一").text
r2("收费情况")= e.form.controls("收费情况").text
r2("损坏元件详细清单")= e.form.controls("损坏元件详细清单").text
r2("机器运行时间")= e.form.controls("机器运行时间").text
r2("更换部件清单")= e.form.controls("更换部件清单").text
r2("内部参数_故障记录一")= e.form.controls("故障记录一").text
r2("内部参数_故障记录二")= e.form.controls("故障记录二").text
r2("内部参数_故障记录三")= e.form.controls("故障记录三").text
r2("内部参数_故障电流")= e.form.controls("故障电流").text
r2("内部参数_其他参数")= e.form.controls("其他参数").text
r2("维修状况")= e.form.controls("维修状况").text
r2("维修状况原因")= e.form.controls("维修原因").text
r2("备注二")= e.form.controls("备注二").text
r2("检查结果及损坏原因分析")= e.form.controls("检查结果及损坏原因分析").text
r2("问题追溯_设计问题")= e.form.controls("设计问题").text
r2("问题追溯_材料问题")= e.form.controls("材料问题").text
r2("问题追溯_制程问题")= e.form.controls("制程问题").text
r2("问题追溯_应用问题")= e.form.controls("应用问题").text
r2("问题追溯_其他故障原因")= e.form.controls("其他故障原因").text
r2("检测人")= e.form.controls("检测人").text
r2("发货人")= e.form.controls("发货人").text


e.form.controls("客户").text = ""
e.form.controls("联系方式").text = ""
e.form.controls("机器型号").text = ""
e.form.controls("故障现象描述").text = ""
e.form.controls("检测时间").text = ""
e.form.controls("保修状态").text = ""
e.form.controls("维修时间").text = ""
e.form.controls("维修员").text = ""
e.form.controls("发货时间").text = ""
e.form.controls("维修类型").text = ""
e.form.controls("机器条码").text = ""
e.form.controls("分值").text = ""
e.form.controls("联系方式").text = ""


e.form.controls("机器型号").text = ""


e.form.controls("故障现象描述").text = ""


e.form.controls("检测时间").text = ""


e.form.controls("保修状态").text = ""


e.form.controls("维修时间").text = ""


e.form.controls("维修员").text = ""


e.form.controls("发货时间").text = ""


e.form.controls("维修类型").text = ""

e.form.controls("机器条码").text = ""


e.form.controls("分值").text = ""
e.form.controls("备注").text = ""
e.form.controls("返厂时间").text = ""
e.form.controls("维修周期").text = ""
e.form.controls("使用行业").text = ""
e.form.controls("运行状态").text = ""
e.form.controls("外围损坏").text = ""
e.form.controls("工作环境").text = ""
e.form.controls("备注一").text = ""
e.form.controls("收费情况").text = ""
e.form.controls("损坏元件详细清单").text = ""
e.form.controls("机器运行时间").text = ""
e.form.controls("更换部件清单").text = ""
e.form.controls("故障记录一").text = ""
e.form.controls("故障记录二").text = ""
e.form.controls("故障记录三").text = ""
e.form.controls("故障电流").text = ""
e.form.controls("其他参数").text = ""
e.form.controls("维修状况").text = ""
e.form.controls("维修原因").text = ""
e.form.controls("备注二").text = ""
e.form.controls("检查结果及损坏原因分析").text = ""
e.form.controls("设计问题").text = ""
e.form.controls("材料问题").text = ""
e.form.controls("制程问题").text = ""
e.form.controls("应用问题").text = ""
e.form.controls("其他故障原因").text = ""
e.form.controls("检测人").text = ""
e.form.controls("发货人").text = ""
SystemReady = True
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 6 次数据查询