[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我要建立一个窗口，有表ExportHead,ExportItem来自SQLServer，目的是实现一个查询功能和一个修改功能，

我输入表ExportItem中的PackingNo字段，查到表ExportHead中ShipmentNo与ExportItem中ShipmentNo相同的数据，

并显示到页面上。请教高手如何实现，可以给我一段类似的代码吗？我有尝试过，可一直提示我Select语句有错，但在数据库中

我的select语句是可以执行的。

谢谢啦！

str1= e.Form.controls("TextBox1").Text
Select Case e.sender.name
    Case "Button1"
        Dim dt As Integer
        Dim s ,ss As String
      Dim cmd As New SQLCommand
       cmd.ConnectionName = "TWQEC"

cmd.CommandText = "SELECT ExportHead.ShipmentNo FROM ExportHead INNER JOIN ExportItem ON ExportHead.ShipmentNo=ExportItem.ShipmentNo WHERE ExportItem.ExportPackingNo= '"& str1 &"' "

           s=cmd.ExecuteScalar()

     If s Is Nothing
           MessageBox.Show("无此id号")
       Else

           Dim jb As New SQLJoinTableBuilder("table1","ExportHead")
            jb.Build
            DataTables("table1").LoadFilter = "ShipmentNo = '"& s &"' "
            DataTables ("table1").Load()

我代码是这样写的，连自己都不知道逻辑对不对，学的时间很短，东西都是跳着看的，因为要在一周之类交出一些东西，谢谢你啦！

以下是引用muhua在2012-8-2 9:05:00的发言：
把你的代码贴出来，看看哪里错了。

cmd.CommandText = "SELECT ExportHead.ShipmentNo FROM ExportHead INNER JOIN ExportItem ON ExportHead.ShipmentNo=ExportItem.ShipmentNo WHERE ExportItem.ExportPackingNo= '"& str1 &"' "

我代码是这样写的，连自己都不知道逻辑对不对，学的时间很短，东西都是跳着看的，因为要在一周之类交出一些东西，谢谢你啦！

muhua	小大 2楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2012/8/2 9:05:00 [只看该作者] 用户已被锁定

主题：[求助]