| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 646 人关注过本帖
标题:那位大哥能帮小弟一把~~!!
只看楼主 加入收藏
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
收藏
 问题点数:0 回复次数:3 
那位大哥能帮小弟一把~~!!

我是先运行下面的代码
Private Sub txtColorID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles combColorID.SelectedIndexChanged
If Me.txtShoesID.Text.Trim.Length = 0 And Me.txtShoesID.Text.Trim.Length Then
MsgBox("请输入正确的数据!", MsgBoxStyle.Information, "提示")
Me.txtShoesID.Focus()
Me.CombNoID.Focus()
Exit Sub
End If

sqlCmd.CommandText = "select 名称 ,尺寸 ,颜色,价格,数量 from 库存表 where 名称=@ShoesID and 尺寸=@NoID and 颜色=@ColorID"
sqlCmd.Parameters.Add("@shoesID", SqlDbType.VarChar)
sqlCmd.Parameters("@shoesID").Value = Me.txtShoesID.Text
sqlCmd.Parameters.Add("@noID", SqlDbType.Int)
sqlCmd.Parameters("@noID").Value = Me.CombNoID.Text
sqlCmd.Parameters.Add("@colorID", SqlDbType.VarChar)
sqlCmd.Parameters("@colorID").Value = Me.combColorID.SelectedItem
sqlCmd.Connection = Module1.sqlconn
sqlDa.SelectCommand = sqlCmd

Dim sqlDr As SqlDataReader
Try
Module1.sqlconn.Open()
sqlDr = sqlCmd.ExecuteReader(CommandBehavior.CloseConnection)
If sqlDr.Read Then
Me.txtUnitPrice.Text = sqlDr("价格")
Me.txtStockQuantity.Text = sqlDr("数量")
End If
Catch ex As Exception
MsgBox("发生错误:" & ex.Message)
End Try

End Sub

然后在运行下面的代码```
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim str As String
If Module1.sqlconn.State <> ConnectionState.Open Then
Module1.sqlconn.Open()
End If
str = "insert into 销售表(名称,尺寸,颜色,价格) values ('" & txtShoesID.Text.Trim() & "','" & CombNoID.SelectedItem.ToString() & "','" & combColorID.SelectedItem.ToString() & "','" & txtUnitPrice.Text.Trim() & "')"
sqlCmd.Connection = Module1.sqlconn
sqlCmd.CommandType = CommandType.Text
sqlCmd.CommandText = str
sqlDa.SelectCommand = sqlCmd
MessageBox.Show("销售成功", "提示信息")
txtShoesID.Text = ""
CombNoID.Text = ""
combColorID.Text = ""
txtShoesID.Focus()

就会跳出先面的图片的问题,小弟想了很多天就是解决不来``也不知道怎么改,求那位大哥能帮小弟一把。。

图片附件: 游客没有浏览图片的权限,请 登录注册

搜索更多相关主题的帖子: color 大哥 
2007-02-06 12:03
bygg
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:乖乖的心中
等 级:版主
威 望:241
帖 子:13555
专家分:3076
注 册:2006-10-23
收藏
得分:0 
Try
Module1.sqlconn.Open()
sqlDr = sqlCmd.ExecuteReader(CommandBehavior.CloseConnection)
If sqlDr.Read Then
Me.txtUnitPrice.Text = sqlDr("价格")
Me.txtStockQuantity.Text = sqlDr("数量")
End If
Catch ex As Exception
MsgBox("发生错误:" & ex.Message)
Finally
Module1.sqlconn.Close()
End Try

加上这个试试.

飘过~~
2007-02-06 18:07
YSKING
Rank: 5Rank: 5
来 自:中国绿城
等 级:贵宾
威 望:16
帖 子:1380
专家分:25
注 册:2006-11-11
收藏
得分:0 
打开要记得关闭,这样会好点

仍然自由自我,永远高唱我歌,走遍千里...
2007-02-07 14:22
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
收藏
得分:0 
谢谢~!~!小弟解决了。。。
2007-02-07 20:44
快速回复:那位大哥能帮小弟一把~~!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039804 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved