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 ElseIf 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
|