以文本方式查看主题 - 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的话不行吧。 |