主题：为什么同样的代码 同样的位置 却一个执行一个不执行、

If Tables("收款明细").DataTable.DataRows.Count =0 Then
    Return
Else
    Tables("收款明细").DataTable.DeleteFor("应收金额 is null or 实收金额 is null")
    DataTables("收款明细").Save
End If

那个不执行,出现什么问题? 有详细的问题才有详细的回复.

这段代码放到表示件afterload里面  但是不执行  当实收金额和应收金额为空的时候 不能自动删除行

表事件AlterLoad,只有重新加载表,也就是执行Load方法或者点击同步表的时候才会执行的.

我在窗口afterload里 加入代码 datatables（）。load   表事件afterload里加上上述代码 就可以了

以前打开项目都是加载表全部数据  直接用内部方式进行查询数据 ，现在打开项目不加载任何数据要使用sql语句进行查询 要怎么改代码啊

 

Dim Filter As String

With e.Form.Controls("付款科目")
    If .Value IsNot Nothing Then
            Filter = Filter & "付款科目= '" & .value & "'"
    End If
End With
With e.Form.Controls("付款方式")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "付款方式 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("起始日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("终止日期")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
            Filter = Filter & "日期 <= #" & .Value & "#"
        End If
    End If
End With
With e.Form.Controls("付款账号")
If .Value IsNot Nothing Then
    If Filter >"" Then
        Filter = Filter & " And "
    End If
    Filter = Filter & "付款账号  like'*" & .text & "*'"
End If
End With
With e.Form.Controls("经手人员")
    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
End If

没区别,把*改为%  然后设置表的LoadFilter即可.

LoadFilter 怎么设置？    不用sql 的select 语句吗？

http://www.foxtable.com/help/topics/1928.htm

你这个做法我表示有点惊讶 在表事件用