大概的用法,自己看吧。
Private Sub savexit_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles savexit.Click
SaveGridData()
Dim ds As DataSet = CType(Session("ds"), DataSet)
Dim dt As DataTable
If Not ds.Tables("storegoods").GetChanges(DataRowState.Modified) Is Nothing Then
Dim storegoods As DataTable = ds.Tables("storegoods").GetChanges(DataRowState.Modified).Copy
Dim selgoods As DataTable = ds.Tables("selgoods")
Dim dg As DataRow
For Each dg In storegoods.Rows
If Not IsDBNull(dg("thisnum")) Then
If dg("thisnum") > 0 Then
Dim drow As DataRow = selgoods.NewRow
drow("goodsid") = dg("goodsid")
drow("num") = dg("thisnum")
drow("useprice") = dg("useprice")
drow("goodscode") = dg("goodscode")
drow("name") = dg("name")
drow("spec") = dg("spec")
drow("model") = dg("model")
drow("unit") = dg("unit")
drow("appro") = dg("appro")
drow("approve") = dg("approve")
selgoods.Rows.Add(drow)
End If
End If
Next
End If
End Sub
Sub SaveGridData()
Dim i As Integer
Dim _item As DataGridItem
Dim dt As DataTable = CType(Session("ds").tables("storegoods"), DataTable)
For i = 0 To dgdgoodsInfo.Items.Count - 1
_item = dgdgoodsInfo.Items(i)
Dim txtN As TextBox = _item.FindControl("txtNum")
If txtN.Text.Trim <> "" Then
Dim id As Integer = CInt(dgdgoodsInfo.DataKeys(i))
Dim dr As DataRow = dt.Select("goodsid=" & id)(0)
dr.BeginEdit()
dr("thisnum") = CInt(txtN.Text)
dr.EndEdit()
Else
Dim id As Integer = CInt(dgdgoodsInfo.DataKeys(i))
Dim dr As DataRow = dt.Select("goodsid=" & id)(0)
dr.BeginEdit()
dr("thisnum") = DBNull.Value
dr.EndEdit()
End If
Next
End Sub
sub page_load(sourec as object,e as eventargs)
if not page.ispostback()
dim conn as sqlconnection
dim datas as sqldataadapter
dim ds as new dataset
dim strcomm as string
conn=new sqlconnection("server=服务器;database=数据库;uid=用户;pwd=密码")
strcomm="select * from 表名"
conn.open()
ds= new dataset()
datas=new sqldataadapter(strcomm,conn)
datas.fill(ds,"表名")
if ds.tables("表名").rows.count=0
response.write("没有记录!")
else
dg.datasource=ds.tables("表名").defaultview
dg.databind
end if
conn.close()
conn=nothing
end if
end sub