以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么逻辑列没有自动改为打勾？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=77778)
--  作者：huhu
--  发布时间：2015/11/25 11:26:00
--  [求助]怎么逻辑列没有自动改为打勾？
下面红色的代码有问题吗？
Dim drkzsl As WinForm.Button = e.Form.Controls("待入库总数量")
Dim f1,f2 As Integer
f1 = drkzsl.text.IndexOf("(")
f2 = drkzsl.text.LastIndexOf(")")
Dim str1,str2 As String
str1 = drkzsl.text.SubString(f1 + 1,f2 -1 - f1)
Dim yrkdh As WinForm.Button = e.Form.Controls("预入库单号")
Dim n1,n2 As Integer
n1 = yrkdh.text.IndexOf("(")
n2 =yrkdh.text.LastIndexOf(")")
str2 = yrkdh.text.SubString(n1 + 1,n2 -1 - n1)


Dim fd1,fd2 As Integer
fd1 = yrkdh.text.IndexOf(":")
fd2 = yrkdh.text.IndexOf("-")
Dim str As String
str = yrkdh.text.SubString(fd1 + 1,fd2 -1 -fd1)
msgbox(str)
If str1 = str2 Then
    MessageBox.show("扫描统计的数量" & str1 & "和入库单预入库数量" & str2 & "一致","扫描入库结果",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Dim dr As DataRow =DataTables("预入库单").SQLFind("入库单号 = \'" & str & "\'")
    If dr IsNot Nothing Then
        dr("标志") = True
    End If
Else
    MessageBox.show("扫描统计的数量" & str1 & "和入库单预入库数量不一致" & str2,"扫描入库结果",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
[此贴子已经被作者于2015/11/25 11:28:13编辑过]
--  作者：huhu
--  发布时间：2015/11/25 11:41:00
--  
改为find，不是在后台查找。
Dim dr As DataRow =DataTables("预入库单").Find("入库单号 = \'" & str & "\'")
    If dr IsNot Nothing Then
        dr("标志") = True
    End If
--  作者：大红袍
--  发布时间：2015/11/25 11:46:00
--  

呃，如果还有问题，再提问
--  作者：huhu
--  发布时间：2015/11/25 11:57:00
--  
改为find，没问题了。多谢。