以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗体表加载数据错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147636)
--  作者：裴保民
--  发布时间：2020/3/20 18:34:00
--  窗体表加载数据错误
If DataTables("应收交易流水").DataRows.Count>=0 Then
    If fl.Checked=False Then
        Dim dr As DataRow = e.Table.Current.DataRow
        Dim wz As Integer = Tables("应收交易流水").FindRow(dr)
        If wz >=0 Then
            Tables("应收交易流水").Position = wz
        End If
        Return
    End If
End If
 在窗体表中CurrentChange的事件中写了如上代码，当打开窗体时如果是筛选后我数据的情况下会提示错误信息，说未将对象实例
--  作者：有点蓝
--  发布时间：2020/3/20 20:24:00
--  
If e.Table.Current Is Nothing Then \'如果Current为Nothing
    Return \'则返回
End If
        Dim dr As DataRow = e.Table.Current.DataRow
        Dim wz As Integer = Tables("应收交易流水").FindRow(dr)
        If wz >=0 Then
            Tables("应收交易流水").Position = wz
        End If