主题：关于项目属性的处理

　　哦，我删除AfterLoad里这段代码，也能实现按回车自动添加一行。

 你原本表里面的事件代码，不要修改就好了。

    其实我在查询窗口里搞那么多东西是因为它绑定到表，可编辑，我添加行就可以继续录入数据，也可当作单据模板录入新的数据。我在个人明细窗口按钮里加入添加行的条件，结果报错：

Dim Filter As String
With e.Form.Controls("cmbProduct")
    If .Value IsNot Nothing Then
        Filter = Filter & "姓名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "# "
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "# "
    End If
End With
If Filter > "" Then
    Tables("冲压车间工资表").Filter = Filter '设置筛选条件
    Dim t As Table = Tables("冲压车间工资表")
    Dim g As Subtotalgroup
    t.SubtotalGroups.Clear()
    t.GroupAboveData = False
    t.TreeVisible = False
    t.SpillNode = False
   
    Tables("冲压车间工资表").DataTable.DeleteFor("日期 is null" Or "姓名 Is null")
    Tables("冲压车间工资表").AutoAddNew = True
    If Tables("冲压车间工资表").Rows.Count = 0 Then
        Tables("冲压车间工资表").AddNew(50)
    Else
        With Tables("冲压车间工资表")
            .DataTable.DeleteFor("日期 is null")
            If .Rows(.Rows.Count - 1).IsNull("日期") = False OrElse .Rows(.Rows.Count - 1).IsNull("姓名") = False  Then
                .AddNew()
            End If
        End With
    End If
End If

 

此主题相关图片如下：2015.png

Tables("冲压车间工资表").DataTable.DeleteFor("日期 is null or 姓名 Is null")