专家坐堂-临时表问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  临时表问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90444)

--  作者：良才
--  发布时间：2016/9/13 8:02:00
--  临时表问题

Select Case e.DataCol.name
    Case "父亲姓名","母亲姓名"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("父亲姓名") = False AndAlso dr.IsNull("母亲姓名") = False Then
            Dim cmd As New SQLCommand
            Dim dt As DataTable
            cmd.C
            cmd.CommandText ="Select b.[_Identify],父亲姓名,母亲姓名,拒收原因 * {学生基本信息} a Inner JOIN {拒收学生} b ON a.学生编号 = b.学生编号 WHERE 报名审批 = \'拒收\'"
            dt = cmd.ExecuteReader()
            If dt.SqlCompute("Count(b.[_Identify])","父亲姓名 = \'" & dr("父亲姓名") & "\' And 母亲姓名 = \'" & dr("母亲姓名") & "\'") = 1 Then

                MessageBox.Show(""& dr("学生姓名") &""& 显示拒收原因 & "!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
                e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
            End If
        End If
End Select

请指点,谢谢

--  作者：有点蓝
--  发布时间：2016/9/13 8:33:00
--

Select Case e.DataCol.name
Case "父亲姓名","母亲姓名"
Dim dr As DataRow = e.DataRow
If dr.IsNull("父亲姓名") = False AndAlso dr.IsNull("母亲姓名") = False Then
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText ="Select b.[_Identify],父亲姓名,母亲姓名,拒收原因 * {学生基本信息} a Inner JOIN {拒收学生} b ON a.学生编号 = b.学生编号 WHERE 报名审批 = \'拒收\' and 父亲姓名 = \'" & dr("父亲姓名") & "\' And 母亲姓名 = \'" & dr("母亲姓名") & "\'"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
MessageBox.Show(dr("学生姓名") & dt.DataRows(0)("拒收原因") & "!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow(e.DataCol.Name) = e.OldValue \'取消输入
End If
End If
End Select

--  作者：良才
--  发布时间：2016/9/13 8:35:00
--
谢谢

--  作者：良才
--  发布时间：2016/9/13 8:46:00
--

太感谢谢
[此贴子已经被作者于2016/9/13 8:51:11编辑过]