- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 老师逻辑列怎么弹出一个确认框？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=142210)
-- 发布时间：2019/10/21 12:56:00
-- 老师逻辑列怎么弹出一个确认框？
有个逻辑列，现在是选中之后直接进行下一步操作
现在想加个确认框，确认后才进行下一步
请问这个代码怎么写
谢谢老师
[此贴子已经被作者于2019/10/21 17:24:41编辑过]
-- 发布时间：2019/10/21 17:43:00
--
判断用户单击了哪个按钮：
Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("不错，说明你已经认真学习了。","提示")
Else
MessageBox.Show("好好学习吧，你会认同这个看法的。","提示")
End if
-- 发布时间：2019/10/21 18:10:00
--
老师为啥点击对话框的取消以后 逻辑列的框还是被选中了呢？
Dim Result As DialogResult
Result = MessageBox.Show("确认吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
If e.DataCol.Name = "录入" AndAlso e.DataRow("录入") = True Then
Dim nma() As String = {"姓名","日期","编号"} \'A表数据来源列
Dim nmb() As String = {”姓名","日期","编号"} \'B表数据接收列
Dim dr As DataRow = DataTables("luru").AddNew
For i As Integer = 0 To nma.Length - 1
dr(nmb(i)) = e.DataRow(nma(i))
Next
MessageBox.Show("成功!")
DataTables("luru2").Save()
DataTables("luru").Save()
Else
e.Cancel = True
MessageBox.Show("已取消","提示")
End If
End If
-- 发布时间：2019/10/21 19:30:00
--
写在DataColChanged里肯定是不对的了，这个时候值已经改变了
那只能写在DataColChanging里，但是写在这里面，新增行的时候就会频繁弹出对话框
-- 发布时间：2019/10/21 19:41:00
--
写BeforeCheckRow这个里面也不行
-- 发布时间：2019/10/21 20:16:00
--
写在DataColChanging里，然后datarowadding事件添加代码
systemready = false
e.datarow = false
systemready = true
-- 发布时间：2019/10/23 11:20:00
--
老师...
此主题相关图片如下：qq截图20191023111007.png
-- 发布时间：2019/10/23 11:22:00
--
systemready = false
e.datarow("某逻辑列") = false
systemready = true