- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 错误提示？此行已从表中移除并且没有任何数据。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91342)
-- 发布时间：2016/10/8 21:10:00
-- 错误提示？此行已从表中移除并且没有任何数据。
Dim nms() As String = {"预算计划","需用计划","销售订单","采购订单","盘点单","清单指引","合同清单","采购入库","销售出库","材料选型"}
Dim nms1() As String = {"预算计划.预算计划明细","需用计划.需用计划明细","销售订单.销售明细","采购订单.采购进货","盘点单.盘点明细","清单指引.材料指引","合同清单.清单子目","采购入库.入库明细","销售出库.出库明细","材料选型.材料选型明细"}
For i As Integer = 0 To nms.Length-1
If Forms(nms(i)).opened AndAlso Vars("e.form.name")=nms(i) Then
For Each dr As DataRow In Vars("选顺序")
MessageBox.show(0)
Dim n As Integer = Tables(nms1(i)).FindRow("定额编码 = \'" & dr("定额编码") & "\'") ‘这里弹错
MessageBox.show(1)
If n < 0 Then
Dim r As Row = Tables(nms1(i)).AddNew()
r("定额编码") = dr("定额编码")
MessageBox.show(2)
Else
MessageBox.show(3)
If MessageBox.Show("[" & dr("材料名称") & "] 已经添加了,是否重复添加此材料?","提示!",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes
Dim r As Row = Tables(nms1(i)).AddNew()
r("定额编码") = dr("定额编码")
Else
Continue For
End If
End If
Next
End If
Next
Forms("进货材料").Close()
在 MESSAGEBOX, 在 0 后，弹错：
问题一：
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据
原来 运行正常的。不知，这次怎么会出这个错。
我还把程序 文件下的BIM 和CATH文件删除了。也这样。
问题二：
其它 用户正在编辑，已锁死。。见图片
此主题相关图片如下：uc截图20161008211319.jpg
此主题相关图片如下：uc截图20161008211319.jpg[此贴子已经被作者于2016/10/8 21:14:31编辑过]
-- 发布时间：2016/10/9 9:20:00
--
1、If Forms(nms(i)).opened AndAlso Vars(e.form.name)=nms(i) Then
2、用开发者登录，勾上“强行编辑”即可
-- 发布时间：2016/10/9 13:52:00
--
Vars("选顺序") = New List(Of DataRow)原来，放到项目AfterOpenProject 中的， 不知道怎么回事，没有执行。 现在我在窗口打开时，窗口加载AfterLoad再写一次：
|
[此贴子已经被作者于2016/10/9 14:01:30编辑过]
-- 发布时间：2016/10/9 14:39:00
--
Vars("选顺序") = New List(Of DataRow)放到项目AfterOpenProject 中我测试没有问题