主题：[求助]

可以删新增多了的行,但是连上一新增行资料清了?

 

不能知道你上一次是指哪一次的，全部清除以后，重新新增一次即可。

请问可否用代码,新增一次锁定按钮,要按取消锁定按钮才可下次新增?

 加入代码

 

e.Form.Controls("Button1").Enabled = False

 

解锁

 

e.Form.Controls("Button1").Enabled = True

你就在新增后，把新增按钮变为不可点击，保存数据后再恢复即可啦。看看这样行不行？

 16楼什么意思

用年月新增多行,在第一列新增日期 排列?如2014-12月 有31天 自动新增31行及新增日期2014-12-1------2014-12-31? 

 你想表达什么？新增31行，每行第一列写入日期？

 

Dim y As Integer = e.Form.Controls("ComboBox1").Text
Dim m As Integer = e.Form.Controls("ComboBox2").Text
Dim n As Integer = Date.DaysInMonth(y, m)
Dim dr As Row = Tables("表a").Current
For i As Integer = 1 To n
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("第一列") = new Date(y, m, i)
Next

谢谢