- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]删除行错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120036)
-- 发布时间：2018/6/6 4:35:00
-- [求助]删除行错误
老师，
删除行提示错误，没有搞定，您给看看。
.NET Framework 版本：2.0.50727.8830
Foxtable 版本：2018.3.9.1
错误所在事件：表，表A，BeforeDeleteDataRow
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。
-- 发布时间：2018/6/6 5:41:00
--
删除 空行 和删除 有数据的行 都提示错误
-- 发布时间：2018/6/6 8:57:00
--
Dim dt As DataTable=DataTables("表B")
Dim dr As DataRow
For Each dcs As DataCol In e.DataTable.DataCols
dr=dt.find("[tblcolid]=\'"& dcs.name &"\' and [tbltname]=\'"& e.DataTable.name &"\'")
If dr IsNot Nothing AndAlso e.DataRow.Isnull(dr("tblcolid"))=False Then
\'读取规则
MessageBox.Show(e.DataTable.find("[" & dr("tblcolid") & "] like \'" & e.DataRow(dr("tblcolid")) & "%\'" & " And [_Identify] <> " & e.DataRow("_Identify")) IsNot Nothing )
If e.DataTable.find("[" & dr("tblcolid") & "] like \'" & e.DataRow(dr("tblcolid")) & "%\'" & " And [_Identify] <> " & e.DataRow("_Identify")) IsNot Nothing Then
MessageBox.Show(1)
PopMessage("不是末级不能删除!","错误", PopIconEnum.Error, 5)
e.Cancel = True
\'Return Nothing
MessageBox.Show(2)
Exit For
End If
End If
Next
-- 发布时间：2018/6/6 9:59:00
--
删除行 在新增 相同的行 提示 存在 不应该啊
测试方法 删除 第一列为 1的 行 然后 新增 行 第一列 录入 1 逻辑上 是不应该出现提示的
[此贴子已经被作者于2018/6/6 10:05:09编辑过]
-- 发布时间：2018/6/6 10:08:00
--
1、删除后，并没有保存；不保存后台数据库不会删除；
2、你查找，不是查找datatable，而是查找后台数据库。