Foxtable(狐表)用户栏目专家坐堂 → [求助]


  共有11187人关注过本帖树形打印复制链接

主题:[求助]

美女呀,离线,留言给我吧!
lemon
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:137 威望:0 精华:0 注册:2012/7/11 14:18:00
[求助]  发帖心情 Post By:2012/8/2 8:49:00 [只看该作者]

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

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

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

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

谢谢啦!


 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2012/8/2 9:05:00 [只看该作者]

用户已被锁定

 回到顶部
美女呀,离线,留言给我吧!
lemon
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:137 威望:0 精华:0 注册:2012/7/11 14:18:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:9 积分:137 威望:0 精华:0 注册:2012/7/11 14:18:00
  发帖心情 Post By: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()

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


 回到顶部