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

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

小弟现在只会这样的做下面的代码``,可是小弟想把在上面图上在datagrid中的数据通过按销售按钮时会加载到销售表中,可是我不知道怎么弄才可以把上面的数据加载到销售表里面``请高手们帮帮小弟````

Module1.sqlconn.Open()
Try
Dim str As String
sqlCmd.Connection = Module1.sqlconn
str = "insert into 销售表(名称,尺寸,颜色,金额,数量) values ('" & txtShoesID.Text & "','" & CombNoID.SelectedItem & "','" & combColorID.SelectedItem & "','" & txtTotalMoney.Text & "','" & NumericUpDown2.Text & "')"
sqlCmd.CommandType = CommandType.Text
sqlCmd.CommandText = str
sqlDa.InsertCommand = sqlCmd
sqlCmd.ExecuteNonQuery()
MessageBox.Show("销售成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
Module1.sqlconn.Close()
End Try
'还要修改的内容
If Module1.sqlconn.State <> ConnectionState.Open Then

Module1.sqlconn.Open()
End If

搜索更多相关主题的帖子: insert values 
2007-02-13 15:04
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 

把datagrid的datasource重新取数据并绑定

比如:
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
...
GridBindData()
End Sub

Private Sub GridBindData
dim tbl as datatable

tbl = module1.GetSellInfo '假设这是从数据库中取得销售数据的函数
datagrid1.datasource = tbl
datagrid1.databind
End Sub

Private Sub BtnSell_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSell.Click
' 这是你的代码
Module1.sqlconn.Open()
Try
Dim str As String
sqlCmd.Connection = Module1.sqlconn
str = "insert into 销售表(名称,尺寸,颜色,金额,数量) values ('" & txtShoesID.Text & "','" & CombNoID.SelectedItem & "','" & combColorID.SelectedItem & "','" & txtTotalMoney.Text & "','" & NumericUpDown2.Text & "')"
sqlCmd.CommandType = CommandType.Text
sqlCmd.CommandText = str
sqlDa.InsertCommand = sqlCmd
sqlCmd.ExecuteNonQuery()
MessageBox.Show("销售成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
Module1.sqlconn.Close()
End Try
'还要修改的内容
If Module1.sqlconn.State <> ConnectionState.Open Then

Module1.sqlconn.Open()
End If

'重新绑定数据 把刚才销售的也显示出来
GridBindData()
End Sub


2007-02-13 15:29
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
收藏
得分:0 
把datagrid的datasource重新取数据并绑定

比如:
Private Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
...
GridBindData() 大哥这个是什么意思啊```??
End Sub

Private Sub GridBindData
dim tbl as datatable

tbl = module1.GetSellInfo '假设这是从数据库中取得销售数据的函数
datagrid1.datasource = tbl
datagrid1.databind
End Sub

这些代码要写在哪里呢```??
2007-02-13 16:36
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 

那就先不说我的代码该放在哪....
你先说你现在form里datagird的数据是怎么显示出来的吧?


2007-02-13 16:42
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
收藏
得分:0 

我是通过点击确定按钮(代码如下)
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim row As DataRow
row = Me.ds.Tables("销售表").NewRow
row("名称") = Me.txtShoesID.Text
row("尺寸") = Me.CombNoID.Text
row("价格") = Me.txtUnitPrice.Text
row("颜色") = Me.combColorID.Text
row("折扣") = Me.NumericUpDown1.Text
row("数量") = Me.NumericUpDown2.Text
Me.ds.Tables("销售表").Rows.Add(row)
If Me.ds.Tables("销售表").Rows.Count > 0 Then
Me.txtTotalMoney.Text = Me.ds.Tables("销售表").Compute("sum(金额)", "")

End If
End Sub
显示到datagrid中的

[此贴子已经被作者于2007-2-13 16:54:21编辑过]

2007-02-13 16:50
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
收藏
得分:0 

还请大哥你帮帮小弟``

[此贴子已经被作者于2007-2-13 16:55:25编辑过]

2007-02-13 16:52
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 

那把你这段代码 放到销售按钮的代码后面不就得了?

Module1.sqlconn.Open()
Try
Dim str As String
sqlCmd.Connection = Module1.sqlconn
str = "insert into 销售表(名称,尺寸,颜色,金额,数量) values ('" & txtShoesID.Text & "','" & CombNoID.SelectedItem & "','" & combColorID.SelectedItem & "','" & txtTotalMoney.Text & "','" & NumericUpDown2.Text & "')"
sqlCmd.CommandType = CommandType.Text
sqlCmd.CommandText = str
sqlDa.InsertCommand = sqlCmd
sqlCmd.ExecuteNonQuery()
MessageBox.Show("销售成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
Module1.sqlconn.Close()
End Try
'还要修改的内容
If Module1.sqlconn.State <> ConnectionState.Open Then

Module1.sqlconn.Open()

---上面把销售数据记录下来了
--- 然后放到datagrid的datasource里面

Dim row As DataRow
row = Me.ds.Tables("销售表").NewRow
row("名称") = Me.txtShoesID.Text
row("尺寸") = Me.CombNoID.Text
row("价格") = Me.txtUnitPrice.Text
row("颜色") = Me.combColorID.Text
row("折扣") = Me.NumericUpDown1.Text
row("数量") = Me.NumericUpDown2.Text
Me.ds.Tables("销售表").Rows.Add(row)
If Me.ds.Tables("销售表").Rows.Count > 0 Then
Me.txtTotalMoney.Text = Me.ds.Tables("销售表").Compute("sum(金额)", "")

End If

...
可是你总得重新绑定数据才看得到啊 下面这2行你怎么也省不了的
datagrid1.datasource = Me.ds.Tables("销售表")
datagrid1.databind


2007-02-13 17:08
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
收藏
得分:0 
Module1.sqlconn.Open()
Try
Dim str As String
sqlCmd.Connection = Module1.sqlconn
str = "insert into 销售表(名称,尺寸,颜色,金额,数量) values ('" & txtShoesID.Text & "','" & CombNoID.SelectedItem & "','" & combColorID.SelectedItem & "','" & txtTotalMoney.Text & "','" & NumericUpDown2.Text & "')"
sqlCmd.CommandType = CommandType.Text
sqlCmd.CommandText = str
sqlDa.InsertCommand = sqlCmd
sqlCmd.ExecuteNonQuery()
MessageBox.Show("销售成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
Module1.sqlconn.Close()
End Try
这段代码我是放在销售按钮下面,但这个只能记录当前在所执行的一条语令
2007-02-13 17:26
Kendy123456
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:62
帖 子:2720
专家分:0
注 册:2007-1-3
收藏
得分:0 

你看不懂我所说的吗?

你把这条记录加到数据库中后 在dataset里面的table 销售表 里面也加上就行了呀
看来我加注释你反倒看糊涂了
If Module1.sqlconn.State <> ConnectionState.Open Then

Module1.sqlconn.Open()

end if
Try
Dim str As String
sqlCmd.Connection = Module1.sqlconn
str = "insert into 销售表(名称,尺寸,颜色,金额,数量) values ('" & txtShoesID.Text & "','" & CombNoID.SelectedItem & "','" & combColorID.SelectedItem & "','" & txtTotalMoney.Text & "','" & NumericUpDown2.Text & "')"
sqlCmd.CommandType = CommandType.Text
sqlCmd.CommandText = str
sqlDa.InsertCommand = sqlCmd
sqlCmd.ExecuteNonQuery()
MessageBox.Show("销售成功!", "提醒", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Module1.sqlconn.Close()
End Try

Dim row As DataRow
row = Me.ds.Tables("销售表").NewRow
row("名称") = Me.txtShoesID.Text
row("尺寸") = Me.CombNoID.Text
row("价格") = Me.txtUnitPrice.Text
row("颜色") = Me.combColorID.Text
row("折扣") = Me.NumericUpDown1.Text
row("数量") = Me.NumericUpDown2.Text
Me.ds.Tables("销售表").Rows.Add(row)
If Me.ds.Tables("销售表").Rows.Count > 0 Then
Me.txtTotalMoney.Text = Me.ds.Tables("销售表").Compute("sum(金额)", "")

End If

datagrid1.datasource = Me.ds.Tables("销售表")
datagrid1.databind


2007-02-13 17:38
hongzhongmin
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2007-1-30
收藏
得分:0 
  可是我还照你的样子做了``可是还是不行哦``
2007-02-13 18:03
快速回复:谁能帮我看看这个问题
数据加载中...
 
   



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

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