以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=22085)
--  作者：lemon
--  发布时间：2012/8/2 8:49:00
--  [求助]

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

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

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

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

谢谢啦！
--  作者：lemon
--  发布时间：2012/8/2 9:20:00
--  

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()

我代码是这样写的，连自己都不知道逻辑对不对，学的时间很短，东西都是跳着看的，因为要在一周之类交出一些东西，谢谢你啦！
--  作者：lemon
--  发布时间：2012/8/2 9:22:00
--  
以下是引用muhua在2012-8-2 9:05:00的发言：
把你的代码贴出来，看看哪里错了。

 

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()

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