- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请问如何更改代码为在空值时行不增加 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89143)
-- 发布时间：2016/8/16 11:14:00
-- 请问如何更改代码为在空值时行不增加
老大，您们好！
附件为我在进行测试发现：在主表增的行自动增加控制代码问题，请帮忙解决问题出现在哪里？
谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:请问如何更改代码为在空值时行不增加.rar |
-- 发布时间：2016/8/16 15:03:00
--
If Tables("型号数据表").Current.IsNull("阻抗线路层别") = False Then
Tables("型号数据表").Current.Clone()
Tables("型号数据表").Current.Locked = False
Else
msgbox("当前行 阻抗线路层别 没有填写值")
End If
-- 发布时间：2016/8/17 13:24:00
--
你好 昨天所提供的代码【如下的代码】在今天测试时，点击按键还是会增加空白行，请确认是否还有其它控制代码？
If Tables("型号数据表").Current.IsNull("阻抗线路层别") = False Then
Tables("型号数据表").Current.Clone()
Tables("型号数据表").Current.Locked = False
Else
msgbox("当前行 阻抗线路层别 没有填写值")
End If
-- 发布时间：2016/8/17 14:25:00
--
2楼代码没问题。上传实例测试。
-- 发布时间：2016/8/17 15:27:00
--
老大，已经将项目上传了
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目2.rar |
-- 发布时间：2016/8/17 15:34:00
--
保存按钮的全部代码替换为下面
If Tables("型号数据表").Current.IsNull("阻抗线路层别") = False Then
Tables("型号数据表").Current.save
Tables("型号数据表").Current.Clone()
Tables("型号数据表").Current.Locked = False
Else
msgbox("当前行 阻抗线路层别 没有填写值")
End If
-- 发布时间：2016/8/19 6:50:00
--
谢谢，代码OK