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


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

主题:[求助] 新增报错

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


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


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

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

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


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

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

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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


 回到顶部