Dim txt As String = e.Form.Controls("项目名称").Text
If txt = "" Then '如果下拉框没有输入内容,则无需查询
MessageBox.Show("项目名称不能为空!" )
Return
Else
Dim r2 As Row = Tables("主表").AddNew
r2("项目名称") = e.Form.Controls("项目名称").text
r2("区域") = e.Form.Controls("区域").text
r2("资质") = e.Form.Controls("资质").text
r2("简码") = e.Form.Controls("简码").text
Dim count As Integer = 0
For Each r As DataRow In Tables("明细表_table1").DataTable.Select("状态 = True")
MessageBox.Show("第 " & count+1 & " 次处理明细行") '总是比选择的记录数少
r("审核") = True
r("审核编号") = e.Form.Controls("审核编号").text
r("状态") = Nothing
count= count+1 '提示处理几行
Next
r2.Save
Tables("明细表_table1").save
End If
加好友 
发短信
Post By：2017/10/14 9:47:00 [显示全部帖子]
