小弟现在只会这样的做下面的代码``,可是小弟想把在上面图上在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

把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

把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

这些代码要写在哪里呢```??

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

我是通过点击确定按钮(代码如下)
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-2-13 16:55:25编辑过]

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

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

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
这段代码我是放在销售按钮下面,但这个只能记录当前在所执行的一条语令

你看不懂我所说的吗?

你把这条记录加到数据库中后 在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

  可是我还照你的样子做了``可是还是不行哦``