主题：复制

 无语了。谁叫你写在这个事件啊，写在按钮里面啊

Dim ndr As DataRow = DataTables("fa piao管理").AddNew
ndr("fa piao号码") = s & val(t1.text)

ndr("日期") = e.Form.Controls("DateTimePicker1").Text

For i As Integer = 2 To val(t2.text)
    ndr = DataTables("fa piao管理").AddNew
    ndr("fa piao号码") = s & val(t1.text) + i - 1
Next