'新增行 Private Sub Add_Row()
Dim ldrw_data As DataRow = CType(Me.Datagv_ShowName.DataSource, DataTable).NewRow
CType(Me.Datagv_ShowName.DataSource, DataTable).Rows.Add(ldrw_data)
CType(Me.Datagv_ShowName.DataSource, DataTable).AcceptChanges()
New_Rows = Me.Datagv_ShowName.Rows.Count - 2
End Sub
'赋值事件,我每点一次,他就会在datagridview后面新增一空白行 ,
现在问题是:我在datagridview新增一行,就会在对应的行列赋一个值给它,
可是我在第二次点击赋值事件时,他也会在对应的行列赋一个值给它,但是他会把上次赋值的内容清空,使得上次赋值的行列没有值。
Private Sub btn_MenuOnCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_MenuOnCmd.Click
Add_Row()
Me.Datagv_ShowName.Rows(New_Rows).Cells(1).Value = Str_MenuName
End Sub
Dim ldrw_data As DataRow = CType(Me.Datagv_ShowName.DataSource, DataTable).NewRow
CType(Me.Datagv_ShowName.DataSource, DataTable).Rows.Add(ldrw_data)
CType(Me.Datagv_ShowName.DataSource, DataTable).AcceptChanges()
New_Rows = Me.Datagv_ShowName.Rows.Count - 2
End Sub
'赋值事件,我每点一次,他就会在datagridview后面新增一空白行 ,
现在问题是:我在datagridview新增一行,就会在对应的行列赋一个值给它,
可是我在第二次点击赋值事件时,他也会在对应的行列赋一个值给它,但是他会把上次赋值的内容清空,使得上次赋值的行列没有值。
Private Sub btn_MenuOnCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_MenuOnCmd.Click
Add_Row()
Me.Datagv_ShowName.Rows(New_Rows).Cells(1).Value = Str_MenuName
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货