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

Dim drzw As DataRow = DataTables("记录").AddNew()

Dim maxzw As String = Tables("录入_记录表").Compute("max(编号)","批号 = '" & ph2.Value & "'")

Dim minzw As String = Tables("录入_记录表").Compute("min(编号)","批号 = '" & ph2.Value & "'")

drzw("日期")= Date.Today

....

这个是窗口按钮代码

窗口打开执行按钮一次，前面会加一行空行。在下一行值填入所得值。窗口不关闭情况，再拆行一次按钮前面不会加入空行，紧邻上行填入值。再次执行，紧邻上行填入值。无空行。
图片点击可在新窗口打开查看

此主题相关图片如下：qq图片20170311103830.png

关闭窗口，再次打开窗口，执行一次按钮，前面又会加一行空行。再次执行，紧邻上行填入值。无空行。再次执行，紧邻上行填入值。无空行。

没懂，求解，谢谢。

主题：求解