感谢，前辈高手 蓝大师
交学费，收徒吗？
前辈、蓝大师，增加一个判断，如果表b已经存在就不新增行，还有如果表a删除这行，表b也删除这行，代码怎么写？这个对我来说太难了
DataTables("表B").DataRows.Clear
For Each 行 As DataRow In DataTables("表A").DataRows
For Each 科目 As String In "事宜|环境|成本".Split("|")
For Each 事宜 As String In 行.Lines(科目)
Dim dr As DataRow = DataTables("表B").Find("编号 = " & "'" & e.DataRow("编号") & "' and 国家 = " & "'" & e.DataRow("国家") & "' and 成本 = " & "'" & e.DataRow("成本") & "'")
If dr IsNot Nothing' Then Then如果找到,则设置各列内容
Dim 新增行 As DataRow = DataTables("表B").AddNew
新增行("编号") = 行("编号")
新增行("国家") = 行("国家")
新增行("科目") = 科目
新增行("表A多列多值跨表转单行") = 事宜
End If
Next
Next
Next
[此贴子已经被作者于2024/9/2 15:13:01编辑过]
加好友 
发短信
Post By：2024/9/2 10:10:00 [显示全部帖子]
此主题相关图片如下：捕获.jpg
