我要建立一个窗口,有表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()
我代码是这样写的,连自己都不知道逻辑对不对,学的时间很短,东西都是跳着看的,因为要在一周之类交出一些东西,谢谢你啦!