Grid编辑单元格后无法保存,求解决

夜冰

Protected Sub Btn_save_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_save.Click
        Dim modifiedDict As Dictionary(Of Integer, Dictionary(Of String, String)) = DG_show.GetModifiedDict
        Dim count As Integer = DG_show.Rows.Count
        Dim sql As String = H_sql.Text
        Dim table As DataTable = hr.GetTable(sql)
        For i = 0 To count - 1
            If (modifiedDict.ContainsKey(i)) Then
                Dim rowDict As Dictionary(Of String, String) = modifiedDict(i)
                Dim rowData As DataRow = table.Rows(i)
                If rowDict.ContainsKey("职务") Then
                    rowData("职务") = rowDict("职务")
                End If
                If rowDict.ContainsKey("序列") Then
                    rowData("序列") = rowDict("序列")
                End If
            End If
        Next
        DG_show.DataSource = hr.GetData(sql)
        DG_show.DataBind()

    End Sub
例子里是把数据存在session中了,没有看明白,哪位给个存到数据库的例子啊......

夜冰

不得已,想了个笨法子,发现哪里更改了就只接写个sql更新语句,等对比完了执行sql语句,希望有人能提供个正常的解决办法最好了.

1. Dim modifiedDict As Dictionary(Of Integer, Dictionary(Of String, String)) = DG_show.GetModifiedDict
   
2.         Dim count As Integer = DG_show.Rows.Count
   
3.         Dim sql As String = H_sql.Text
   
4.         Dim table As DataTable = hr.GetTable(sql)
   
5.         Dim id As String = ""
   
6.         Dim UpSql As String = ""
   
7.         For i = 0 To count - 1
   
8.             If (modifiedDict.ContainsKey(i)) Then
   
9.                 Dim rowDict As Dictionary(Of String, String) = modifiedDict(i)
   
10.                 Dim rowData As DataRow = table.Rows(i)
    
11.                 id = DG_show.DataKeys(i)(0)
    
12.                 If rowDict.ContainsKey("职务") Then
    
13.                     rowData("职务") = rowDict("职务")
    
14.                     UpSql += " update 部门名称 set 职务='" & rowDict("职务") & "' where id='" & id & "' "
    
15.                 End If
    
16.                 If rowDict.ContainsKey("序列") Then
    
17.                     rowData("序列") = rowDict("序列")
    
18.                     UpSql += " update 部门名称 set 序列='" & rowDict("序列") & "' where id='" & id & "' "
    
19.                 End If
    
20.                 If rowDict.ContainsKey("部门") Then
    
21.                     rowData("部门") = rowDict("部门")
    
22.                     UpSql += " update 部门名称 set 部门='" & rowDict("部门") & "' where id='" & id & "' "
    
23.                 End If
    
24.             End If
    
25.         Next
    
26.         hr.ExecuteNoSQL(UpSql)
    
27.         table.Dispose()
    
28.         DG_show.DataSource = hr.GetData(sql)
    
29.         DG_show.DataBind()
    
30.         Alert.Show(UpSql)
    
31.     End Sub

复制代码

隨風往事

看示例http://fineui.com/demo/#/demo/grid/grid_editor_cell_new.aspx