以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]数据库查询修改问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22089)
--  作者：lemon
--  发布时间：2012/8/2 10:00:00
--  [求助]数据库查询修改问题

我要建立一个窗口，有表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() 

我代码是这样写的，连自己都不知道逻辑对不对，学的时间很短，东西都是跳着看的，因为要在一周之类交出一些东西，谢谢你啦！
 
--  作者：狐狸爸爸
--  发布时间：2012/8/2 10:13:00
--  

先学习，再工作，磨刀误不了砍柴工。

跳着看，只会让你愈看愈糊涂，踏踏实实学习，轻轻松松后来居上。