Select Case e.DataCol.Name
Case "型材名称", "型材代号", "型材密度", "型材长度", "型材数量", "型材总长度", "型材总重量"
If e.DataRow.IsNull("型材名称") = False AndAlso e.DataRow.IsNull("型材代号") = False Then
Dim dr As DataRow = DataTables("表C").Find("材料名称='" & e.DataRow("型材名称") & "'and 材料代号='" & e.DataRow("型材代号") & "'")
If dr Is Nothing Then ----------------------------把这行代码去掉
dr = DataTables("表C").AddNew
End If --------------------------------------------把这行代码去掉
'设置自动填充的数据列代码
dr("材料名称") = e.DataRow("型材名称") '必须判断语句相适应配套
dr("材料代号") = e.DataRow("型材代号")
dr("密度") = e.DataRow("型材密度")
dr("长度") = e.DataRow("型材长度")
dr("数量") = e.DataRow("型材数量")
dr("总长度") = e.DataRow("型材总长度")
dr("总重量") = e.DataRow("型材总重量")
End If
End Select
我调试过代码 去掉上面俩行代码，就能全部显示，但是在表Ａ中修改数据时，表Ｃ中就会增加新行，不符合要求，按您给些的代码，就是把相同型材名称的行合并了，显示不全
加好友 
发短信
Post By：2023/9/22 8:32:00 [只看该作者]
