下面红色的代码有问题吗？
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编辑过]
加好友 
发短信
Post By：2015/11/25 11:26:00 [显示全部帖子]
