Remove Cell DataGrid

Dim i As Integer

For i = 0 To ds.Tables("violation").Rows.Count - 1


If CInt(ds.Tables("violation").Rows(i).Item("violationcode")) = Violationid Then ds.Tables("violation").Rows.RemoveAt(i)

ds.Tables("violation").AcceptChanges()

Violationid = Nothing

Exit For

End IF

Next


With gridViolation

For p = 0 To gridViolation.Rows.Count - 1
If .Rows(p).Selected = True Then

.CurrentCell = .Item(2, p)
CurrentCell = CStr(gridViolation.Rows(p).Cells(1).Value)
Violationid = CInt(gridViolation.Rows(p).Cells(0).Value)
CurrentProjectName = CurrentCell
Exit For

End If

Next


End With

ความคิดเห็น

แสดงความคิดเห็น

โพสต์ยอดนิยมจากบล็อกนี้

การส่งค่าจากฟอร์มให้แสดงที่ Crystal Report โดยใช้ ParameterFields ParameterFields pfs1 = new ParameterFields(); ParameterFields pfs2 = new ParameterFields(); ParameterFields pfs3 = new ParameterFields(); ParameterField pf1 = new ParameterField(); ParameterField pf2 = new ParameterField(); ParameterField pf3 = new ParameterField(); ParameterDiscreteValue pdv1 = new ParameterDiscreteValue(); ParameterDiscreteValue pdv2 = new ParameterDiscreteValue(); ParameterDiscreteValue pdv3 = new ParameterDiscreteValue(); pf1.Name = "CompanyName"; pdv1.Value = strComName; pf2.Name = "FromDateTime"; pdv2.Value = strfromdatetime; pf3.Name = "ToDateTime"; pdv3.Value = strtodatetime; pf1.CurrentValues.Add(pdv1); pfs1.Add(pf1); pf2.CurrentValues.Add(pdv2); pfs2.Add(pf2); pf3.CurrentValues.Add(pdv3); pfs...
อ่านเพิ่มเติม