- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 增加行时出现如下错误提示 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93181)
-- 发布时间：2016/11/22 14:16:00
-- 增加行时出现如下错误提示
增加行时出现如下错误提示，请各位老师帮忙。
此主题相关图片如下：qq截图20161122141244.png
-- 发布时间：2016/11/22 14:40:00
--
1、更新到最新版狐表
2、相关代码贴出来
-- 发布时间：2016/11/22 14:49:00
--
这是表属性代码。
\'在表中输入商品编码,在商品资料找出对应此商品的其他项自动填入表中
If e.DataCol.Name = "商品编码" Then \'当商品编码输入时
\'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("商品资料").Find("商品编码 = \'" & e.DataRow("商品编码") & "\'" )
\'在商品资料表中找到对应商品时,自动填入.
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("商品名称")= dr("商品名称")
e.DataRow("商品规格")= dr("商品规格")
e.DataRow("生产企业")= dr("生产企业")
e.DataRow("单位")= dr("商品单位")
End If
End If
\'在表中输入商品名称时,在商品资料表中找出对应的商品编码并自动填入表中,其他解释同上.
If e.DataCol.Name = "商品名称" Then \'发生变化的是产品编号吗?
\'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("商品资料").Find("商品名称= \'" & e.DataRow("商品名称") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("商品编码")= dr("商品编码")
End If
End If
\'在表中输入供应商编码时,在供应商资料表中找出对应的供应商并自动填入表中,其他解释同上.
If e.DataCol.Name = "供应商编码" Then \'发生变化的是产品编号吗?
\'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("供应商资料").Find("供应商编码 = \'" & e.DataRow("供应商编码") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("供应商名称")= dr("供应商名称")
End If
End If
\'在表中输入供应商名称时,找出相应供应商编码并自动填入表中
If e.DataCol.Name = "供应商名称" Then \'发生变化的是产品编号吗?
\'在产品表找出该产品
Dim dr As DataRow
dr = DataTables("供应商资料").Find("供应商名称= \'" & e.DataRow("供应商名称") & "\'" )
If dr IsNot Nothing \'如果找到, 则设置各列内容
e.DataRow("供应商编码")= dr("供应商编码")
End If
End If
-- 发布时间：2016/11/22 15:02:00
--
应该和上面代码无关。有没有增加行的相关事件？
-- 发布时间：2016/11/22 15:09:00
--
没有增加行的事件，我又重新启动表，就好了，不知道什么原因。