Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提示框对应提示数据问题


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

主题：提示框对应提示数据问题
帅哥哟，离线，有人找我吗？
aza520
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00 		提示框对应提示数据问题  发帖心情 Post By：2018/9/13 17:13:00 [只看该作者]

在表的DataColChanging事件设以下代码，新增一行，户主姓名列输入姓名“潘进海”，与上一列姓名相同时会弹出提示框（如图），想实现已存在户主所对应的协议书编号也进行提示，如图中，想将提示框中的提示改为“此户主已经存在!其协议书编号为：FD-1-HS-CQ-078，是否确认添加?”
If e.DataCol.Name = "户主姓名" Then
    Dim dr As DataRow
    dr = e.DataTable.sqlFind("户主姓名 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        Dim Result As DialogResult
        Result = MessageBox.Show("此户主已经存在!是否确认添加?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    End If
End If


图片点击可在新窗口打开查看此主题相关图片如下：1111.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/13 17:28:00 [只看该作者]

改成

 

Result = MessageBox.Show("此户主已经存在!其协议书编号为:" & dr("编号") & ",是否确认添加?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 回到顶部
帅哥哟，离线，有人找我吗？
aza520
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00 		  发帖心情 Post By：2018/9/13 17:37:00 [只看该作者]

老师，假如有多个同名的，该如何把所有对应的协议书编号都列出来。图中只列了78号，79号没列

图片点击可在新窗口打开查看此主题相关图片如下：1111.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/13 17:56:00 [只看该作者]

If e.DataCol.Name = "户主姓名" Then
    Dim str = e.DataTable.SQLGetComboListString("编号", "户主姓名 = '" & e.NewValue & "'")
    If str > "" Then
        Dim Result As DialogResult
        Result = MessageBox.Show("此户主已经存在!其协议书编号为:" & str.replace("|", ",") & ",是否确认添加?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If Result = DialogResult.Yes Then
            e.Cancel = False
        Else
            e.Cancel = True
        End If
    End If
End If

 回到顶部
帅哥哟，离线，有人找我吗？
aza520
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：689 积分：5155 威望：0 精华：0 注册：2017/10/22 10:15:00 		  发帖心情 Post By：2018/9/14 16:27:00 [只看该作者]

老师，4楼的代码是将所有的后台数据进行筛选显示，我只想在当前用户所能加载的数据中进行筛选，如当前登录用户是'乡镇'组的，

在表BeforeLoad设以下代码，实现分条件加载

If User.Group = "乡镇" 
    Dim fl As String = "[乡镇] = '" & User.Name & "'"
    If e.DataTable.LoadFilter = "" Then
        e.DataTable.LoadFilter = fl
    ElseIf e.DataTable.LoadFilter.IndexOf(fl) < 0 Then 
        e.DataTable.LoadFilter = e.DataTable.Loadfilter & " And " & fl
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/9/14 16:36:00 [只看该作者]

Dim str = e.DataTable.SQLGetComboListString("编号", "户主姓名 = '" & e.NewValue & "' and [乡镇] = '" & User.Name & "'")

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10156 秒, 4 次数据查询