Foxtable(狐表)用户栏目专家坐堂 → 老师逻辑列怎么弹出一个确认框?


  共有2097人关注过本帖树形打印复制链接

主题:老师逻辑列怎么弹出一个确认框?

帅哥哟,离线,有人找我吗?
初心不改再说未来
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
老师逻辑列怎么弹出一个确认框?  发帖心情 Post By:2019/10/21 12:56:00 [只看该作者]

有个逻辑列,现在是选中之后直接进行下一步操作

现在想加个确认框,确认后才进行下一步

请问这个代码怎么写


谢谢老师
[此贴子已经被作者于2019/10/21 17:24:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2019/10/21 19:30:00 [只看该作者]

写在DataColChanged里肯定是不对的了,这个时候值已经改变了

那只能写在DataColChanging里,但是写在这里面,新增行的时候就会频繁弹出对话框

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2019/10/21 19:41:00 [只看该作者]

BeforeCheckRow这个里面也不行

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/21 20:16:00 [只看该作者]

写在DataColChanging里,然后datarowadding事件添加代码

systemready = false
e.datarow = false
systemready = true

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2019/10/23 11:20:00 [只看该作者]

老师...
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20191023111007.png
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105470 积分:536335 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/23 11:22:00 [只看该作者]

systemready = false
e.datarow("某逻辑列") = false
systemready = true

 回到顶部