--
确定按钮
dim d1 as date = e.form.controls("起始日期").value
dim d2 as date = e.form.controls("结束日期").value
dim r as row
do while d1 <= d2
r = tables("表A").addnew
r("编号") = e.form.controls("编号").text
r("日期") = d1 r("租金") = e.form.controls("租金").text
d1 = d1.adddays(1)
loop