-- 求解
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
关闭窗口,再次打开窗口,执行一次按钮,前面又会加一行空行。再次执行,紧邻上行填入值。无空行。再次执行,紧邻上行填入值。无空行。
没懂,求解,谢谢。