主题：请教如何改

此主题相关图片如下：捕获333.png

我在包装车间工资表的表属性DataColChanged事件中修改了程序，因为要添加一个条件，如果当天的集体生产形式只有一种（即只有一条件生产线，以集体、集体1区分），则职位为拉长的系数为：1 + (fdr("系数") - 1)/ 2，否则系直接引用姓名表中的系数，程序修改后报错，请教如何修改。

日期格式我修改过来没报错了，但对包装车间工资表姓名列重置列，软件消失，程序有问题，麻烦帮我看看怎么改，谢谢。

还是这样，这程序是不是不是这样编啊！

For Each ary() As String In DataTables("包装车间工资表").GetValues("日期|生产形式", "日期 is not null and 生产形式 <> '个人'")
    Dim drs As List(Of DataRow) = DataTables("包装车间工资表").Select("日期=#" & ary(0) & "# And 生产形式='" & ary(1).Replace("'","''") & "'")
    Dim count As Integer = 0
    Dim ls As new List(Of String)
    If DataTables("包装车间工资表").DataCols.Contains("备注1") = False Then
        DataTables("包装车间工资表").DataCols.add("备注1", Gettype(String))
    End If
    For Each dr As DataRow In drs
        Dim str As String = dr("生产形式")
        If ls.Contains(str) = False Then
            count + = 1
            ls.add(str)
            dr("备注1") = dr("备注1").replace("重复", Nothing)
        Else
            dr("备注1") = "重复" & dr("备注1").replace("重复", Nothing)
        End If
    Next
    Select Case e.DataCol.name
        Case "日期","姓名","职位","系数"
            Dim d As Date = e.DataRow("日期")
            d = new Date(d.year, d.month, 1)
            Dim fdr As DataRow = DataTables("姓名").find("姓名 = '" & e.DataRow("姓名") & "' and 日期 >= #" & Format(d,"yyyy-MM-dd") & "# and 日期 < #" & Format(d.AddMonths(1),"yyyy -MM-dd") & "#", "日期 desc")
            If fdr IsNot Nothing
                e.DataRow("职位") = fdr("职位")
                If count > 1 Then
                    If e.DataRow("职位") Like "*拉长*" Then
                        e.DataRow("系数") = 1 + (fdr("系数") - 1)/ 2
                    Else
                        e.DataRow("系数") = fdr("系数")
                    End If
                Else
                    e.DataRow("职位") = Nothing
                    e.DataRow("系数") = Nothing
                End If
            End If
    End Select
Next

我的本意是自动引用，哦写到按钮里啊？让我想想怎么改。

我加了这段代码了，点重置列软件没消失了，但没实现自动引用系数。我在计算窗口里加了两个暂停执行事件代码按钮，一个执行的，一个关闭的，但并不明白它们在此的作用。

下面的代码放到计算按钮里？是能引用了，但结果不对，因为你把计算分开了，计算是判断条件之一，如果当天的集体生产形式只有一种（即只有一条件生产线，以集体、集体1区分），则职位为拉长的系数为：1 + (fdr("系数") - 1)/ 2，否则系直接引用姓名表中的系数。