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