主题：表动态数据出错

谢谢有点色老师！这样运行不会出错了但是把这单代码复制到“ValueChanged” 事件中 在表中动态选择数据时“绑定客户”按钮不会随着数据是否绑定客户变化而按钮是否可用 即e.Form.Controls("bangdingkehu").Enabled=False/True属性。

表格的datacolchanged事件，写代码

 

If e.DataCol.name = "机具是否绑定" Then
    If forms("窗口1").opened Then
        If e.DataRow("机具是否绑定") = True Then
            MessageBox.Show("机具已绑定客户!", "提示")
            forms("窗口1").Controls("bangdingkehu").Enabled=False
        Else
            MessageBox.Show("机具未绑定客户!", "提示")
            forms("窗口1").Controls("bangdingkehu").Enabled=True
        End If
    End If
End If

运行时出现“ DataCol 不是contro|EVentArgs的成员”的错误

 

 

老师你好！我就是在DataColChanged事件或者currentChanged事件写的代码。

是这样的不是“是否绑定”的数值发生变化时 窗体上的“绑定客户”按钮是否可用发生变化，而是随着数据行上下移动时根据“是否绑定”的实际数值的不同而“绑定客户”按钮是否可用发生变化的。

放到表格的datacolchanged事件

老师你好！我就是在DataColChanged事件编写代码的，不行的。

是这样的不是“是否绑定”的数值发生变化时 窗体上的“绑定客户”按钮是否可用发生变化，而是随着数据行上下移动时根据“是否绑定”的实际数值的不同而“绑定客户”按钮是否可用发生变化的。

 

老师不可以的

行发生改变而且“是否绑定”字段的值发生了变化，但窗体上的“绑定客户”按钮是否可用不发生变化。

此主题相关图片如下：1.png


此主题相关图片如下：2.png


此主题相关图片如下：3.png

 编写currentChanged事件代码

 

Dim r As Row = e.Table.current
If forms("窗口1").opened AndAlso r IsNot Nothing Then
    If r("机具是否绑定") = True Then
        MessageBox.Show("机具已绑定客户!", "提示")
        forms("窗口1").Controls("bangdingkehu").Enabled=False
    Else
        MessageBox.Show("机具未绑定客户!", "提示")
        forms("窗口1").Controls("bangdingkehu").Enabled=True
    End If
End If