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
[此贴子已经被作者于2016/10/8 21:14:31编辑过]
加好友 
发短信
Post By：2016/10/8 21:10:00 [只看该作者]
