专家坐堂-代码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=139529)

--  作者：13775189031
--  发布时间：2019/8/15 8:32:00
--  代码

以下代码，有以下问题，例如“实发支数1”填写后，自动生成“实发日期1”如2019-08-01，若“实发支数2”填写完成后，因修改而删除，“实发日期1”就会变成当日，要怎么修改？
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "实发_支数1","实发_支数2","实发_支数3"
If dr.IsNull("实发_支数1") = False AndAlso dr.IsNull("实发_支数2") AndAlso dr.IsNull("实发_支数3") Then
dr("实发_日期1") =Date.today
Else
If dr.IsNull("实发_支数1") Then
dr("实发_日期1") = Nothing
End If
End If
If dr.IsNull("实发_支数2") = False AndAlso dr.IsNull("实发_支数1") = False AndAlso dr.IsNull("实发_支数3") Then
dr("实发_日期2") =Date.today
Else
If dr.IsNull("实发_支数2") Then
dr("实发_日期2") = Nothing
End If
End If
If dr.IsNull("实发_支数3") = False AndAlso dr.IsNull("实发_支数1") = False AndAlso dr.IsNull("实发_支数2") = False Then
dr("实发_日期3") =Date.today
Else
If dr.IsNull("实发_支数3") Then
dr("实发_日期3") = Nothing
End If
End If
End Select

--  作者：有点蓝
--  发布时间：2019/8/15 8:36:00
--
没看懂，请使用文字描述一下想要实现的逻辑

--  作者：13775189031
--  发布时间：2019/8/15 9:08:00
--
如2019-08-02当天输入"实发_支数1"，"实发_日期1"自动显示当天日期2019-08-02，2019-08-15当天输入“实发_支数2"，"实发_日期2"自动显示日期2019-08-15，但此时若需删除“实发_支数2"，"实发_日期1"就会自动变更为当天，也就是2019-08-15

--  作者：13775189031
--  发布时间：2019/8/15 9:08:00
--
不想让"实发_日期1"跟着变化

--  作者：有点蓝
--  发布时间：2019/8/15 9:42:00
--

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "实发_支数1"
If dr.IsNull("实发_支数1") = False Then
dr("实发_日期1") =Date.today
Else
If dr.IsNull("实发_支数1") Then
dr("实发_日期1") = Nothing
End If
End If
Case "实发_支数2"
If dr.IsNull("实发_支数2") = False ) Then
dr("实发_日期2") =Date.today
Else
dr("实发_日期2") = Nothing
If e.oldvalue <> Nothing
dr("实发_日期1") = Date.Today
End If
End If
Case "实发_支数3"
If dr.IsNull("实发_支数3") = False Then
dr("实发_日期3") =Date.today
Else
dr("实发_日期3") = Nothing
If e.oldvalue <> Nothing
dr("实发_日期2") = Date.Today
End If
End If
End Select