FineUI 官方论坛

标题: Grid编辑单元格后无法保存,求解决 [打印本页]
作者: 夜冰    时间: 2013-7-14 16:13
标题: 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中了,没有看明白,哪位给个存到数据库的例子啊......

作者: 夜冰    时间: 2013-7-14 16:36
不得已,想了个笨法子,发现哪里更改了就只接写个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
复制代码
作者: 隨風往事    时间: 2013-7-15 08:52
看示例http://fineui.com/demo/#/demo/grid/grid_editor_cell_new.aspx



欢迎光临 FineUI 官方论坛 (https://fineui.com/BBS/) Powered by Discuz! X3.4