此主题相关图片如下：行状态.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

Detached 是没有添加进foxtable显示给你看的时候的状态。

如，datarowAdding事件里，状态就是Detached。

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

显示后就是Added或Modified

是的。

实际上用到这个状态的情况不多。你现在要做什么功能？

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

如：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

直接判断是否保存不就好了？

If .Current IsNot Nothing AndAlso .Current.DataRow.RowState  <> DataRowState.Unchanged Then  \'如果不是保存的行，那就只显示保存按钮。