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

以文本方式查看主题

-  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=142986)

--  作者：良才
--  发布时间：2019/11/11 11:09:00
--  自动增加行

代码能精简吗？请老师指教，谢谢！

If e.Sender.Value IsNot Nothing Then
    For Each dr1 As DataRow In DataTables("托管缴费").DataRows
        If DataTables("托管日况").SQLFind("#"& dr1("开始日期") &"# <= #"& e.Sender.Value &"# And #"& dr1("结束日期") &"# >= #"& e.Sender.Value & "#") IsNot Nothing Then
            If DataTables("托管日况").SQLFind("学生编号 = \'"& dr1("学生编号") &"\' And 托管日期 = #"& e.Sender.Value &"#") Is Nothing Then
                dr = DataTables("托管日况").AddNew
                dr("学期") = dr1("学期")
                dr("托管班级") = dr1("托管班级")
                dr("学生编号")= dr1("学生编号")
                dr("托管日期")= e.Sender.Value
                dr.Save()
            End If
        End If
    Next
End If

[此贴子已经被作者于2019/11/11 11:24:23编辑过]

--  作者：有点蓝
--  发布时间：2019/11/11 11:29:00
--
If e.Sender.Value IsNot Nothing Then
    For Each dr1 As DataRow In DataTables("托管缴费").select("开始日期 <= #"& e.Sender.Value &"# And 结束日期 >= #"& e.Sender.Value & "#")
            If DataTables("托管日况").SQLFind("学生编号 = \'"& dr1("学生编号") &"\' And 托管日期 = #"& e.Sender.Value &"#") Is Nothing Then
                dr = DataTables("托管日况").AddNew
                dr("学期") = dr1("学期")
                dr("托管班级") = dr1("托管班级")
                dr("学生编号")= dr1("学生编号")
                dr("托管日期")= e.Sender.Value
                dr.Save()
            End If
    Next
End If

--  作者：良才
--  发布时间：2019/11/11 11:38:00
--
谢谢