[VB.NET]datagrid索引的问题谁有好方法

来源:互联网 发布:java 读取文本 编辑:程序博客网 时间:2024/06/05 06:27
VB.NET源码-156个实用实例哦……<script type="text/javascript"><!--google_ad_client = "pub-8333940862668978";/* 728x90, 创建于 08-11-30 */google_ad_slot = "4485230109";google_ad_width = 728;google_ad_height = 90;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
datagrid索引的问题谁有好方法
索引老是不同步,见鬼了,这算那门子事

If DataGrid1.CurrentRowIndex <> -1 Then
获取当前行并进行修改
Dim iRow As Integer = DataGrid1.CurrentRowIndex.ToString
With itemoutlist
.Rows(iRow)( 品名 ) = Me.ComboBox1.Text.Trim
.Rows(iRow)( 规格 ) = Me.TextBox1.Text.Trim
.Rows(iRow)( 领取数量 ) = Me.TextBox3.Text.Trim
.Rows(iRow)( 单位 ) = Me.TextBox4.Text.Trim
.Rows(iRow)( 仓库 ) = Me.ComboBox2.Text.Trim
.Rows(iRow)( 领料日期 ) = Me.DateTimePicker1.Text.ToString
.Rows(iRow)( 领料员 ) = Me.TextBox5.Text.Trim
End With

End If
Catch
MessageBox.Show( 数据错误 )
End Try
__________________________________________________________________________
If Me.DataGridView1.SelectedRows.Count = 1 Then
With Me.DataGridView1.SelectedRows(0)
.Cells(0).Value = Me.ComboBox1.Text.Trim
.Cells(1).Value = Me.TextBox1.Text.Trim
End With
End If
这样试验一下看看
__________________________________________________________________________
呵呵,谢谢.我已经解决了,我代码没错,只不过用错事件了.
__________________________________________________________________________
那还不结贴?
__________________________________________________________________________