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

老师好，还是您帮忙的多表融合问题--关于数据的全部完整的融合，请老师再调整一下代码，以达到完美的目的

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多表融合--数据全部显示.rar

老是　他们的长度，数量，这些数值型数据肯定有区别，我把长度　或数量加入判断中，保存，他们是数值型数据

是　　报错　　打错字了

这个几率不大，要不您看再加一个啥辅助判断列

老师，要不就按id　区分

老师好，您就把型材长度和型材数量并入判断条件就可以，和型材名称，型材代号，型材长度，型材数量一块形成判断条件就行，

Dim dr As DataRow = DataTables("表C").Find("材料名称='" & e.DataRow("型材名称") & "'and 材料代号='" & e.DataRow("型材代号") & "' and 　长度='" & e.DataRow("型材长度号") & "'　and 数量='" & e.DataRow("型材数量") & "'")

把型材长度，型材数量加进去，会报错，它门是数值型的，老师看看怎么把这个数值型的加入判断条件中去，谢谢老师

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　

我调试过代码　　去掉上面俩行代码，就能全部显示，但是在表Ａ中修改数据时，表Ｃ中就会增加新行，不符合要求，按您给些的代码，就是把相同型材名称的行合并了，显示不全

谢谢老师，我看看能不能调试出来，谢谢老师，另外请教老师关于数值型列的判断条件怎么设置，

如Dim dr As DataRow = DataTables("表C").Find("材料名称='" & e.DataRow("型材名称") & "'and 材料代号='" & e.DataRow("型材代号") & "'")

这是字符型列的判断，对于数值型列的判断代码怎么设置，请老师赐教，谢谢老师

主题：多表融合