老师好！
我写了一段PrepareEdit代码，当在窗口取消e.Row("艾忘计划")勾选时，不断弹出代码中的“提示”，是哪里的问题？
谢谢！
If Forms("练习日志").opened Then
If e.Col.Name = "艾忘计划" And e.Row("艾忘计划") = True Then
Dim Result As DialogResult
Result = MessageBox.Show("取消勾选将删除该条记录的所有计划", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim dt As DataTable = DataTables("计划表")
Dim dt1 As DataTable = DataTables("艾宾浩斯")
dt.DeleteFor("ID = '" & e.Row("ID") & "'")
dt1.DeleteFor("ID = '" & e.Row("ID") & "'")
Else
Return
End If
End If
End If
此主题相关图片如下：截屏图片.jpg
加好友 
发短信
Post By：2021/4/14 15:27:00 [只看该作者]
