以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  老师,这段代码有问题吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60043)

--  作者:youngk
--  发布时间:2014/11/17 13:12:00
--  老师,这段代码有问题吗?
 If  e.DataRow.IsNull("车号") = False  And  cstr(num).Length = 7 Then
            dr = DataTables("客户车号表").find("substring(Convert(车号,\'System.String\'),3,5) = \'" & cstr(num).SubString(2) & "\'And [已到达] = False ")
            If dr IsNot Nothing Then
                Dim wz As Integer = Tables("客户车号表").FindRow(dr)
                If wz >= 0 Then
                    Tables("客户车号表").Position = wz
                End If
                e.DataRow("客户名称") = dr("客户名称")
                e.DataRow("收货人") = dr("收货人")
                e.DataRow("托运人") = dr("托运人")
                e.DataRow("到发站") = dr("到发站")
                e.DataRow("进出库分类") = "进库"
                If e.DataRow("是否审核") = True Then
                    dr("已到达") = True
                End If
            End If
这段代码有问题吗?If wz >= 0 Then
                    Tables("客户车号表").Position = wz
                End If
这里为什么要>=0,而不是直接>0呢?


--  作者:czy
--  发布时间:2014/11/17 13:42:00
--  
Tables("表名").Position = 0 为第一行,如果代码直接大于0的话不行吧。