Dim r As Row = Tables("凭证").AddNew()
Dim tt As Table = Tables("凭证")
Dim dr As Table = Tables("凭证")
r("凭证ID") = dr.Compute("Max(凭证ID)") + 1
Dim r1 As Row = Tables("凭证明细").AddNew()
r1("凭证ID") = r("凭证ID")
Dim r2 As Row = Tables("凭证明细").AddNew()
r2("凭证ID") = r("凭证ID")
Dim r3 As Row = Tables("凭证明细").AddNew()
r3("凭证ID") = r("凭证ID")
Dim r4 As Row = Tables("凭证明细").AddNew()
r4("凭证ID") = r("凭证ID")
Dim r5 As Row = Tables("凭证明细").AddNew()
r5("凭证ID") = r("凭证ID")
Dim r6 As Row = Tables("凭证明细").AddNew()
r6("凭证ID") = r("凭证ID")
Dim r7 As Row = Tables("凭证明细").AddNew()
r7("凭证ID") = r("凭证ID")
e.Form.Controls("DateTimePicker2").Select()
为什么增两行后再就自动退出FOX?