If e.Form.Controls("RadioButton1").checked Then
Dim ndrb As DataRow = DataTables("表A").AddNew
ndrb("金额") = e.Form.controls("TextBox1").text
ndrb("去向") = e.Form.controls("RadioButton5").Text
If e.Form.Controls("RadioButton6").Checked Then
ElseIf e.Form.Controls("RadioButton7").Checked Then
ElseIf e.Form.Controls("RadioButton8").Checked Then
End If
End If
If e.Form.Controls("RadioButton2").checked Then
Dim ndrb As DataRow = DataTables("表B").AddNew
ndrb("金额") = e.Form.controls("TextBox1").text
ndrb("去处") = e.Form.controls("RadioButton5").Text
If e.Form.Controls("RadioButton6").Checked Then
ElseIf e.Form.Controls("RadioButton7").Checked Then
ElseIf e.Form.Controls("RadioButton8").Checked Then
End If
End If
If e.Form.Controls("RadioButton3").checked Then
Dim ndrb As DataRow = DataTables("表C").AddNew
ndrb("金额") = e.Form.controls("TextBox1").text
ndrb("去向") = e.Form.controls("RadioButton1").Text
If e.Form.Controls("RadioButton2").Checked Then
ElseIf e.Form.Controls("RadioButton3").Checked Then
ElseIf e.Form.Controls("RadioButton4").Checked Then
End If
End If
If e.Form.Controls("RadioButton4").checked Then
Dim ndrb As DataRow = DataTables("表D").AddNew
ndrb("金额") = e.Form.controls("TextBox1").text
ndrb("去向") = e.Form.controls("RadioButton5").Text
If e.Form.Controls("RadioButton6").Checked Then
ElseIf e.Form.Controls("RadioButton7").Checked Then
ElseIf e.Form.Controls("RadioButton8").Checked Then
End If
End If
If e.Form.Controls("RadioButton5").checked Then
Dim ndrb As DataRow = DataTables("表A").AddNew
ndrb("金额") = e.Form.controls("TextBox1").text
ndrb("来源") = e.Form.controls("RadioButton1").Text
If e.Form.Controls("RadioButton2").Checked Then
ElseIf e.Form.Controls("RadioButton3").Checked Then
ElseIf e.Form.Controls("RadioButton4").Checked Then
End If
End If
If e.Form.Controls("RadioButton6").checked Then
Dim ndrb As DataRow = DataTables("表B").AddNew
ndrb("金额") = e.Form.controls("TextBox1").text
ndrb("提取处") = e.Form.controls("RadioButton1").Text
If e.Form.Controls("RadioButton2").Checked Then
ElseIf e.Form.Controls("RadioButton3").Checked Then
ElseIf e.Form.Controls("RadioButton4").Checked Then
End If
End If
If e.Form.Controls("RadioButton7").checked Then
Dim ndrb As DataRow = DataTables("表C").AddNew
ndrb("金额") = e.Form.controls("TextBox1").text
ndrb("来源") = e.Form.controls("RadioButton1").Text
If e.Form.Controls("RadioButton2").Checked Then
ElseIf e.Form.Controls("RadioButton3").Checked Then
ElseIf e.Form.Controls("RadioButton4").Checked Then
End If
End If
If e.Form.Controls("RadioButton8").checked Then
Dim ndrb As DataRow = DataTables("表D").AddNew
ndrb("金额") = e.Form.controls("TextBox1").text
ndrb("来源") = e.Form.controls("RadioButton1").Text
If e.Form.Controls("RadioButton2").Checked Then
ElseIf e.Form.Controls("RadioButton3").Checked Then
ElseIf e.Form.Controls("RadioButton4").Checked Then
End If
End If