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

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、贴出你写的代码啊。

 什么意思啊，你不填写内容，点击查询，就查不到数据啊，看11楼。

 

在afterLoad事件，写这个代码

 

Tables("冲压车间工资表").Filter = "1=2"

测试没问题啊，请说明如何操作后报错。

只需要写这段代码，其余的不用写。

 

Tables("冲压车间工资表").Filter = "1=2"

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

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