选择RadioButton输入不同的表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Form.Controls("RadioButton1").checked Then

Dim ndrb As DataRow = DataTables("表A").AddNew

ndrb("金额") = e.Form.controls("TextBox1").text

ndrb("去向") = iif(e.Form.controls("RadioButton3").Checked, e.Form.controls("RadioButton3").text, e.Form.controls("RadioButton4").text)

ndrb("来源") = iif(e.Form.controls("RadioButton3").Checked, e.Form.controls("RadioButton3").text, e.Form.controls("RadioButton4").text)

End If

If e.Form.Controls("RadioButton2").checked Then

Dim ndrb As DataRow = DataTables("表B").AddNew

ndrb("余额") = e.Form.controls("TextBox1").text

ndrb("提取处") = iif(e.Form.controls("RadioButton3").Checked, e.Form.controls("RadioButton3").text, e.Form.controls("RadioButton4").text)

ndrb("去处") = iif(e.Form.controls("RadioButton3").Checked, e.Form.controls("RadioButton3").text, e.Form.controls("RadioButton4").text)

End If

If e.Form.Controls("RadioButton3").checked Then

Dim ndrb As DataRow = DataTables("表A").AddNew

ndrb("金额") = e.Form.controls("TextBox1").text

ndrb("去向") = iif(e.Form.controls("RadioButton1").Checked, e.Form.controls("RadioButton1").text, e.Form.controls("RadioButton2").text)

ndrb("来源") = iif(e.Form.controls("RadioButton1").Checked, e.Form.controls("RadioButton1").text, e.Form.controls("RadioButton2").text)

End If

If e.Form.Controls("RadioButton4").checked Then

Dim ndrb As DataRow = DataTables("表B").AddNew

ndrb("余额") = e.Form.controls("TextBox1").text

ndrb("提取处") = iif(e.Form.controls("RadioButton1").Checked, e.Form.controls("RadioButton1").text, e.Form.controls("RadioButton2").text)

ndrb("去处") = iif(e.Form.controls("RadioButton1").Checked, e.Form.controls("RadioButton1").text, e.Form.controls("RadioButton2").text)

End If

还是不对，都输入进去了，

唉，还得麻烦你呀！

[此贴子已经被作者于2016/8/24 23:50:44编辑过]

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