主题：原来百试百灵的代码现在突然出现问题

原来百试百灵的代码现在突然出现问题不知道是出现在什么地方

表"半成品","装窑","成品"里面输入相应的数据前面有一个"增加"复选框 当我输入数据后单击复选框时会在"完成情况"进行相对应的内容进行汇总

狐狸爸爸 这三个表的代码我使用了很长时间了都没有出现问题 但是今天不知道怎么搞的三个表出现的问题是一样的输入后会出现如下图示

请狐狸爸爸一定要帮帮我 谢谢您了 看看问题出现在什么地方 看问题是出现在列上但是我全找便了还是找不出问题的方向

密码:110721

以成品表为例，你的代码为：
 
If e.DataCol.Name ="增加" Then
    Dim dr,dr1 As DataRow
    dr = e.DataRow
    If dr.isnull("计划号") Then
        MessageBox.Show("计划号不能为空!")
    Else
        Dim s As String = "计划号 = '" & dr("计划号") & "'and 材质 = '" &  dr("材质") & "'and 砖号 = '" & dr("砖号") & "'and 型号 = '" & dr("型号") & "'"
        dr1= DataTables("完成情况").find(s)
        If dr1 IsNot Nothing Then
            Dim val1 As Double = dr("成品_数量")
            Dim val2 As Double = dr("成品_重量")
            Dim val3 As Double = dr("废品_数量")
            Dim val4 As Double = dr("废品_重量")
            If dr("增加") = False Then
                val1 = -val1
                val2 = -val2
                val2 = -val3
                val2 = -val4
            End If
            dr1("成品情况_成品_数量")+ = val1
            dr1("成品情况_成品_吨数")+ = val2
            dr1("成品情况_废品_数量")+ = val3
            dr1("成品情况_废品_吨数")+ = val4
            dr1.Save()
        Else
            Dim Ls As String() = {"计划号","成品情况_成品_数量","成品情况_成品_吨数","成品情况_废品_数量","成品情况_废品_吨数"}
            dr1 = DataTables("完成情况").AddNew()
            For Each s In Ls
                dr1(s) = dr(s)
            Next
            dr1.Save()
        End If
        dr.Save()
      End If
End If
 
留意我加粗的一行，你的成品表有名称为"成品情况_成品_数量","成品情况_成品_吨数","成品情况_废品_数量"这样的列吗？
明明就没有啊，错误提示也告诉你“列 成品情况_成品_数量 不属于成品表”

代码应该这么写:

If e.DataCol.Name ="增加" Then
    Dim dr,dr1 As DataRow
    dr = e.DataRow
    If dr.isnull("计划号") Then
        MessageBox.Show("计划号不能为空!")
    Else
        Dim s As String = "计划号 = '" & dr("计划号") & "'and 材质 = '" &  dr("材质") & "'and 砖号 = '" & dr("砖号") & "'and 型号 = '" & dr("型号") & "'"

        dr1= DataTables("完成情况").find(s)
        If dr1 IsNot Nothing Then
            Dim val1 As Double = dr("成品_数量")
            Dim val2 As Double = dr("成品_重量")
            Dim val3 As Double = dr("废品_数量")
            Dim val4 As Double = dr("废品_重量")
            If dr("增加") = False Then
                val1 = -val1
                val2 = -val2
                val2 = -val3
                val2 = -val4
            End If
            dr1("成品情况_成品_数量")+ = val1
            dr1("成品情况_成品_吨数")+ = val2
            dr1("成品情况_废品_数量")+ = val3
            dr1("成品情况_废品_吨数")+ = val4
            dr1.Save()
        Else
            Dim Ls1 As String() = {"计划号","成品_数量","成品_重量","废品_数量","废品_重量"}
            Dim Ls2 As String() = {"计划号","成品情况_成品_数量","成品情况_成品_吨数","成品情况_废品_数量","成品情况_废品_吨数"}
            dr1 = DataTables("完成情况").AddNew()
            For i As Integer = 0 To ls1.Length - 1
                dr1(ls2(i)) = dr(ls1(i))
            Next
            dr1.Save()
        End If
        dr.Save()
      End If
End If

狐狸爸爸还是有事需要您的帮忙:

 这个表不是有一个增加按钮吗 当单击之后数据就会出现在需要出现的表里面  但是有一个弊端 就是当增加按钮打上对号后 我想在更改里面的内容 但是另一个表却是和没有改的一样的, 我想能在打上对号后对数据进行更改 引用到的表数据也一样可以改变 能不能实现

狐狸爸爸是不是这样同步更改内容  不能实现呀

你这样的设计很难维护的，采用关联表应该更加合适。

我建议你还是暂停开发，再系统看两三遍帮助文件，这样开发的效率更高，质量更好。

特别是使用指南中《关联表》和《表达式》两章，要重点看看。

狐狸爸爸 你看我这个表是借助“增加”框 当我选择对号后才把数据同步到我想要同步的表的位置，如果我去掉“增加”的选择 当我输入数据后直接就会同步到我想同步的表中去如何实现，

总的来说就是不需要打对号   去掉打对号的列   这样我输入数据后就会直接在引用的表中发生同步  能不能实现

狐狸爸爸 我又想起一个法子    你看看这样行不行   合同信息里面 输入内容后不是打上对号才能把合同信息里面的内容调出与其它表同步吗   如果我在把对号打上后等我需要更改的时候我把打上的对号去掉 那么能不能实现同步的信息自动删除  这样不就可以了吗  求狐狸爸爸帮助我

用关联不知道多方便，以成品表为例：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目36.rar

你目前不应该开发系统，而是踏踏实实看帮助，从使用指南开始看

呵呵 听狐狸爸爸的