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

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("冲压车间工资表").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 Then
                .AddNew()
            End If
        End With
    End If
Else
    Tables("冲压车间工资表").Filter = "1=2"
End If

添加行的条件只有一个条件，我要最后一行日期或姓名不为零，自动添加一行。

看懂代码，条件可以自己任意加

　　我加过，报错了才来问你们。

爆什么错，发上来看看，才有助于解决问题

　　明白了，我的编写格式有问题。

试试代码这样写

 

    Tables("冲压车间工资表").DataTable.DeleteFor("日期 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

我把你们给我的公式代到按钮中，还是出现没选选项，按按钮就已加载数据，而且最后一行不为空也没加一行，代码报错。你们套进去试试就行了。

 汗，代码没问题啊。

 

1、你要什么效果。截图说明。

 

2、报什么错啊。

 

3、贴出你写的代码啊。

不要未选选项，按按钮先加载功能。
此主题相关图片如下：捕获111.png