你各个表的列名要一致,然后参考下面代码
Dim tname As String = ""
If e.Form.Controls("RadioButton1").checked Then
tname = "表A"
ElseIf e.Form.Controls("RadioButton2").checked Then
tname = "表B"
ElseIf e.Form.Controls("RadioButton3").checked Then
tname = "表C"
End If
Dim ndr As DataRow = DataTables(tname).AddNew
ndr("进项") = e.Form.controls("textbox3").text
ndr("备注") = e.Form.controls("textbox1").text