以文本方式查看主题

-  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=120694)
--  作者：vxzx
--  发布时间：2018/6/22 8:29:00
--  [求助]增加行时，若已有日期相同的行，则不再增加，只在相同日期行编辑，怎么写？
在增加行时，判断“日期”列是否已经有相同日期，若有相同日期的，则只在原有日期的行里编辑数据，是在BeforeAddDataRow 里编写吗？应该怎么写呢，谢谢大神们。
--  作者：有点甜
--  发布时间：2018/6/22 9:07:00
--  

1、新增行的时候不知道你日期列要填入什么值。（或者，你新增行的时候，日期要准备填入什么？）

 

2、在datacolchanged事件，才能检测到输入的日期值，你可以在那个时候删除行等操作。
--  作者：vxzx
--  发布时间：2018/6/22 16:01:00
--  
日期是在窗口月历控件选择的，月历控件中 事件 DateSelected 中编码是
Dim i As Integer = Tables("交接班").FindRow("日期 = #" & e.sender.Value & "#")
msgbox(i)
If i >= 0 Then
    Tables("交接班").position = i
Else
    Dim nr As Row = Tables("交接班").AddNew
    nr("日期") = e.sender.Value
End If
--  作者：有点甜
--  发布时间：2018/6/22 17:15:00
--  
回复3楼，你的代码没问题吧？你findrow就已经判断日期是否重复了。