右键新增行后，第二列和第三列，第四列没数据了，原来是可以的

 在第一列手动输入数据可以，右键新增行不行，

在datacolchanged 里设置

elect Case e.DataCol.Name
   Case "第一列"
  If e.DataCol.Name = "第一列" Then
    Dim dr As DataRow = e.DataRow
    If dr.IsNull("第一列") Then
        dr("第二列") = Nothing
        dr("第三列") = Nothing
    Else
        Dim s As String = dr("第一列")
        Dim s1 As String = dr("第一列")
        Dim s2 As String = dr("第一列")
        s= Mid(s,1,6)
        s1= Mid(s,1,4)
        s2 = mid(s,5,2)
        dr("第二列") =s
        dr("第三列") =s1
        dr("第四列") = s2
    End If
   End If
 End Select

在datarowadding  里设置

e.DataRow("第一列") = e.DataTable.Compute("Max(第一列)") + 1

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目6.table