以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表动态数据出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101464)

--  作者:peibaomin
--  发布时间:2017/5/31 22:48:00
--  表动态数据出错

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


--  作者:有点色
--  发布时间:2017/5/31 23:06:00
--  
表格的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


--  作者:peibaomin
--  发布时间:2017/5/31 23:25:00
--  

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

 

 

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

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

[此贴子已经被作者于2017/6/1 8:44:08编辑过]

--  作者:有点蓝
--  发布时间:2017/6/1 8:32:00
--  
放到表格datacolchanged事件
--  作者:peibaomin
--  发布时间:2017/6/1 13:35:00
--  我就是在DataColChanged事件编写代码的

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

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


--  作者:peibaomin
--  发布时间:2017/6/1 14:06:00
--  老师不可以的

 

老师不可以的

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


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/6/1 14:18:20编辑过]

--  作者:有点色
--  发布时间:2017/6/1 14:10:00
--  

 编写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