主题：选择RadioButton输入不同的表

Dim tname As String = ""

Dim s As String = ""
If e.Form.Controls("RadioButton1").checked Then
    tname = "表A"

    s = "A"
ElseIf e.Form.Controls("RadioButton2").checked Then
    tname = "表B"

    s = "B"
ElseIf e.Form.Controls("RadioButton3").checked Then
    tname = "表C"

    s = "C"
End If
Dim ndr As DataRow = DataTables(tname).AddNew
ndr("进项" & s) = e.Form.controls("textbox3").text
ndr("备注" & s) = e.Form.controls("textbox1").text