Dim ks As Integer = val(e.form.controls("Textbox1").Text)
Dim js As Integer = val(e.form.controls("Textbox2").Text)
For i As integer = ks to js
Dim r As Row = Tables("二维码清单表").Rows(i)
Next