主题：[求助]行状态的问题

此主题相关图片如下：行状态.png

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

点击浏览该文件:管理项目71_201709051643.zip

请教行状态的问题：

帮助中RowState提及行状态Detached，我建立了一个窗口和不同的按钮，不同的按钮Enabled状态代表着当前行的状态。无论怎改变行状态，始终未出现行状态Detached，请做示范。小狗到期，请贴出。

 

表的CURRENTCHANGED代码如下：

 

With Tables("窗口1_表A")
    If .Current.DataRow.RowState = DataRowState.ADDed Then
        e.Form.Controls("added").Enabled =False
    Else
        e.Form.Controls("added").Enabled =True
    End If
End With

With Tables("窗口1_表A")
    If  .Current.DataRow.RowState = DataRowState.Modified Then
        e.Form.Controls("Modified").Enabled =False
    Else
        e.Form.Controls("Modified").Enabled =True
    End If
End With

With Tables("窗口1_表A")
    If  .Current.DataRow.RowState = DataRowState.detached Then
        e.Form.Controls("Detached").Enabled =False
    Else
        e.Form.Controls("Detached").Enabled =True
    End If
End With
With Tables("窗口1_表A")
    If .Current.DataRow.RowState = DataRowState.Unchanged Then
        e.Form.Controls("Unchanged").Enabled =False
    Else
        e.Form.Controls("Unchanged").Enabled =True
    End If
End With

即在表中未显示前的时候？

显示后就是Added或Modified

可否在datarowadding中做个关于DETACHED的示范例子出来，帮助中关于这方面的内容太少了，不好理解。

想根据行的状态控制窗口的新增、保存、删除等按键。即：新增行后必须保存才能继续操作新增、删除等其他按键。

如：With Tables("订货主表")
    If .Current IsNot Nothing AndAlso .Current.DataRow.RowState  = DataRowState.modified    Then  '新增加的行
        e.Form.Controls("保存").Enabled =True
        e.Form.Controls("主表新增").Enabled =False
        e.Form.Controls("修改").Enabled =False
      Else
           e.Form.Controls("保存").Enabled =False
        e.Form.Controls("主表新增").Enabled =True
        e.Form.Controls("修改").Enabled =True
       End If
End With

语句更好，更整洁。感谢你。