如何实现窗口按键事件？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，如何把下面代码放在窗口的按键单击事件，还是这些代码是放在新增，保存代码之前还是其位置之后？谢谢

有试一下，报错

Dim dr As DataRow = e.DataRow

Dim pf As String

If dr.RowState <> DataRowState.Added Then

Return

ElseIf dr.IsNull("制单日期") Then

e.Cancel = True

MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

Else

pf = "SHDH" & "" & Format(dr("制单日期"),"yyyyMM")

End If

e.DataRow("送货单号") = pf & "-" & Format(Key,"0000") '流水号的设计)

e.DataRow("制单日期") = Date.Today()

e.DataRow("制单人") = User.name

Static Index As Integer = 99999

e.DataRow("送货单号") = Format(Date.Today(),"yyMM") & "-" & Index

Index = Index - 1

老师，我知道，但不灵活，以窗口开发，窗口上的表属性（副）及字段没有正表的表属性，因一张表或关联表，在实际开发中不是只在一处被引用，在很多引用时，就是出现局限，建议官方改进，可以没那容易，所以只有改按键事件，所以想改用按键事件发生报错，请老师帮助，谢谢

老师，1.根据您的代码，试一下，第一个编号0001，之后都是0000？

2.下面代码红色可能有错，不知道怎么改，是保存

Dim dr As DataRow = e.DataRow

Dim pf As String

If dr.RowState <> DataRowState.Added Then

Return

ElseIf dr.IsNull("制单日期") Then

e.Cancel = True

MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

Else

pf = "SHDH" & "" & Format(dr("制单日期"),"yyyyMM")

End If

e.DataRow("送货单号") = pf & "-" & Format(Key,"0000") '流水号的设计)

3.表格事件才是最灵活的。副本一样可以使用主表的事件。窗口按钮不是更多限制吗？

3.1 是这样比如送货单登记，我们如果只做登记，可表事件，但在做冲帐，引用同一套表（主表和明细），登记取登记单号，冲帐取冲帐单号，表事件就不能用？

因为狐表在窗口上没有把副表没正表的表事件，做不了，如果重新做套表，可能增加系统负担，表太多。

3.2 狐表的表事件大部分是针对正表，在单表使用时，可能看不出影响，但在关联表使用就会有影响，因为它们要求都是正表，但窗口开发，被引用时，就是出现影响。

一个在查询，另一个登记，就会出影响

如果，窗口的副表都有正表所有表事件，您说方法是可行。狐表是注重表开发，轻窗口开发，其实实际不是窗口和页面开发为主，希望可以加以重视窗口和页面开发为主，因为BS和移动端开发还是窗口和页面。

目前来看窗口开发的工作量相当大。

主题：如何实现窗口按键事件？