Foxtable(狐表)用户栏目专家坐堂 → 老师,这段代码有问题吗?


  共有3406人关注过本帖树形打印复制链接

主题:老师,这段代码有问题吗?

帅哥哟,离线,有人找我吗?
youngk
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:221 积分:1745 威望:0 精华:0 注册:2014/1/7 12:37:00
老师,这段代码有问题吗?  发帖心情 Post By: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呢?


 回到顶部