怎么选择个人的时候就没有用了呢?是那点不对啊,在麻烦你一下。
If e.Form.Controls("RadioButton1").checked Then
If e.Form.Controls("ComboBox1").Text = "经营" Then
Dim ndr As DataRow = DataTables("表A").AddNew
ndr("进项A") = e.Form.controls("textbox3").text
ndr("备注A") = e.Form.controls("textbox1").text
ndr("第七列") = Format(Date.Now, "yyyyMMddHHmmss")
ndr("第八列") = e.Form.controls("RadioButton1").text
If e.Form.Controls("ComboBox1").Text = "个人" Then
Dim ndrd As DataRow = DataTables("表B").AddNew
ndrd("进项b") = e.Form.controls("textbox3").text
ndrd("备注b") = e.Form.controls("textbox1").text
ndrd("第七列") = Format(Date.Now, "yyyyMMddHHmmss")
ndrd("第八列") = e.Form.controls("RadioButton1").text
End If
End If
End If