以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  谁能看卡这段代码有什么问题吗？~求帮助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10677)
--  作者：zbsczh
--  发布时间：2011/6/17 12:23:00
--  谁能看卡这段代码有什么问题吗？~求帮助

Dim c1 As WinForm.ComboBox
Dim c2 As WinForm.TextBox


c1 = e.Form.Controls("ComboBox1")
c2 = e.Form.Controls("TextBox1")

Dim s1 As String = c1.Value
Dim s2 As String = c2.Value
Dim r As Integer

If s2 IsNot Nothing Then
    Select Case s1
        Case "物料号"
            r = Tables("库存").FindRow("[物料号] = " & s2, 0, True)
            If r >= 0 Then
                CurrentTable.Position = r
            Else
                MessageBox.Show("  输入的物料号不存在!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
        Case "物料名称"
            r = Tables("库存").FindRow("[物料名称] = " & s2 , 0, True)
            If r >= 0 Then
                CurrentTable.Position = r
            Else
                MessageBox.Show("  输入的物料名称不存在!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
    End Select
Else
    MessageBox.Show("    请输出查找内容!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

 

 

一直在             r = Tables("库存").FindRow("[物料名称] = " & s2 , 0, True)

这行出错。。不懂了
--  作者：程兴刚
--  发布时间：2011/6/17 12:51:00
--  
缺少单引号，看帮助，我用手机回复的!
[此贴子已经被作者于2011-6-17 12:54:21编辑过]
--  作者：zbsczh
--  发布时间：2011/6/17 12:57:00
--  

            r = Tables("库存").FindRow("[物料名称] = " & s2 , 0, True)
     r = Tables("库存").FindRow("[物料号] = " & s2, 0, True)

两条代码都一样的，为什么一条出错，一条没出错。。
--  作者：zbsczh
--  发布时间：2011/6/17 12:58:00
--  
而且也不是单引号的问题吧。。
--  作者：zbsczh
--  发布时间：2011/6/17 13:52:00
--  

狐爸在不
--  作者：mr725
--  发布时间：2011/6/17 13:59:00
--  
以下是引用zbsczh在2011-6-17 12:57:00的发言：

            r = Tables("库存").FindRow("[物料名称] = " & s2 , 0, True)
     r = Tables("库存").FindRow("[物料号] = " & s2, 0, True)

两条代码都一样的，为什么一条出错，一条没出错。。

物料名称、物料号这两个字段类型？  如果是字符型，那么：" & s2  改为： \'" & s2 & "\'

 

另外：If s2 IsNot Nothing Then  不知道对不，我都是If s2 > "" Then  或 If s2 <> "" Then   这样用的。
--  作者：zbsczh
--  发布时间：2011/6/17 14:05:00
--  

谢谢楼上大哥指导，问题解决了，确实如此， NOthing 判断没问题。就是奇怪，本来S2变量带的就是字符类型，怎么还加单引号\'\'。。。。