Vraag : Het bewaren van getypte Dataset aan SQL Server

Ik cre�ërde een getypte dataset tegen een sql 2008 serverlijst (CheckListDetails) Wanneer ik probeer om de lijst bij te werken, gebeurt niets.  Ik heb de code voor sparen button.
 omvat
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
" notpretty " 
Protected SubbtnSave_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) Handvatten btnSave.Click
        Schemerige drow als CheckListDetails.CheckListDetailsRow
        tmpSQL = sSQL & „WAAR CheckListID =“ & Me.lblCheckListID.Text
        Schemerige adapter als SqlDataAdapter = Nieuwe SqlDataAdapter (tmpSQL, cnStr)
        adapter. Vul (CLD, „CheckListDetails“)
        Als Me.lblCheckListID.Text < 0 toen
            drow = CLD.CheckListDetails.NewCheckListDetailsRow
            drow.CLTypeID = Zitting („CLType“)
            drow.DisplayText = Me.tbDisplayText.Text
            drow.DisplayOrder = Me.tbDisplayOrder.Text
            drow.NoteText = Me.tbNoteText.Text
            drow. Actief = Me.cbActive.Checked
            drow.HasSub = Me.cbHasSub.Checked
            drow.AcceptChanges ()
        Anders
            Voor Elke drow in CLD.CheckListDetails
                drow.CLTypeID = Zitting („CLType“)
                drow.DisplayText = Me.tbDisplayText.Text
                drow.DisplayOrder = Me.tbDisplayOrder.Text
                drow.NoteText = Me.tbNoteText.Text
                drow. Actief = Me.cbActive.Checked
                drow.HasSub = Me.cbHasSub.Checked
                drow.AcceptChanges ()
            Daarna
        Eind als

        ResetControls ()
        Me.Panel1.Visible = Vals
        gvCLDetails.DataBind ()
    Sub van het eind

Antwoord : Het bewaren van getypte Dataset aan SQL Server

Welke versie van uitblinkt u gebruikt? U kon proberen en selecterend enkel adjecent lege cellen, rightsclick „schrapping“ selecteren. Dan kiest u „omhoog verschuivingscellen“.

Voor veranderingen, kleef de volgende formule in cel I2:

=IF (EN (EIS (A: A; J: J); EIS (B: B; K: K); EIS (C: C; L: L); EIS (D: D; M: M); EIS (E: E; N: N); EIS (F: F; O: O); EIS (G: G; P: P); EIS (H: H; Q: Q)); ""; „VERSCHILLEND! “)

klik cel I2, klik de laatste cel in de kolom van I zodat worden alle cellen in deze kolom exept I1 geselecteerd en drukken CTRL+D om deze functie aan alle geselecteerde cellen te kopiëren. Indien nu weggegaan en juist verschillend zijn zal colum van I „VERSCHILLEND!“ verklaren

Andere oplossingen  
 
programming4us programming4us