- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请问增加一行为何出现这样的错误提示？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58407)
-- 发布时间：2014/10/16 10:51:00
-- [求助]请问增加一行为何出现这样的错误提示？
此主题相关图片如下：搜狗截图20141016104849.png
-- 发布时间：2014/10/16 10:53:00
--
贴出你datacolchanged的代码。
-- 发布时间：2014/10/16 11:01:00
--
datacolchanged代码在哪儿找得到
-- 发布时间：2014/10/16 11:03:00
--
订单信息表,表属性,DataColChanged事件
项目不是你开发的?
-- 发布时间：2014/10/16 11:20:00
--
Select Case e.DataCol.Name
Case "订单号"
If e.DataRow.IsNull("订单号") = False Then \'如果已经输入订单编号
If e.DataRow.GetChildRows("订单明细").Count = 0 Then \'而且无订单明细
Dim dr As DataRow = DataTables("订单明细").AddNew()
dr("订单号") = e.DataRow("订单号")
End If
End If
End Select
If e.DataCol.name = "审核" Then
Dim pr As DataRow = e.DataRow.GetParentRow("订单信息")
If pr IsNot Nothing Then
Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
Dim cnt As Integer
For Each cr As DataRow In crs
If cr("审核") = True
cnt = cnt + 1
End If
Next
pr("审核") = (crs.Count = cnt)
End If
End If
-- 发布时间：2014/10/16 11:24:00
--
把你的例子或者项目发上来测试。
-- 发布时间：2014/10/16 11:35:00
--
此主题相关图片如下：搜狗截图20141016113422.png
-- 发布时间：2014/10/16 11:37:00
--
事件代码是不能放到命令窗口执行的
-- 发布时间：2014/10/16 11:47:00
--
报错不用管了，能增加行就行，以后再研究