不建议写成 selec case 的形式
If e.Form.Controls("TextBox1").value Isnot Nothing Then
DataTables("表1").DataCols("列1").DefaultValue = """"& e.Form.controls("textbox1").value &""""
End If
If e.Form.Controls("TextBox2").value IsNot Nothing Then
DataTables("表1").DataCols("列2").DefaultValue = """"& e.Form.controls("textbox2").value &""""
End If
If e.Form.Controls("TextBox3").value IsNot Nothing Then
DataTables("表1").DataCols("列3").DefaultValue = """"& e.Form.controls("textbox3").value &""""
End If