核销生成关联表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在明细表选中审核列（一行或多行），然后点击审核，主表新增一行，并自动

生成审核编号，将选中的数据（第一行内容）复制到主表对应列，然后将主表

生成的审核编号复制到刚刚选中的明细表对应的行，作为关联

下载信息 [文件大小：下载次数： ]
点击浏览该文件:核销测试.foxdb

代码只处理了一行，不会处理多行

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 '提示处理几行

Tables("主表").Current.Save

End If

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 '提示处理几行

r2.Save

Tables("明细表_table1").save

End If

主题：核销生成关联表