Foxtable(狐表)用户栏目专家坐堂 → 扫码问题-窗口内多个编辑框循环扫码


  共有1642人关注过本帖树形打印复制链接

主题:扫码问题-窗口内多个编辑框循环扫码

帅哥哟,离线,有人找我吗?
G流星雨
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1361 威望:0 精华:0 注册:2017/2/25 22:34:00
  发帖心情 Post By:2017/8/3 16:06:00 [只看该作者]

DataColChanged

某一列的内容被更改后执行,此时列的内容已经是更改后的值。

e参数属性:

DataTable:返回发生数据更改的数据表。
DataRow:  返回发生数据更改的数据行。
DataCol:  返回发生数据更改的数据列。
NewValue: Object类型,表示新的值。
OldValue: Object类型,表示旧的值




If e.DataCol.Name = "结论" Then
    If e.newValue = True Then
MessageBox.Show(e.newValue )
        e.DataRow("项目一") = "OK"
        e.DataRow("项目二") = "OK"
    Else
        e.DataRow("项目一") = "NG"
        e.DataRow("项目二") = "NG"
    End If
End If

DataRowAdding

增加一行时执行,此时新增行(DataRow)已经创建,但并未真正增加到DataTable中,通常在此处对新增行进行默认值的设置。

Dim jl As WinForm.CheckBox = Forms("成品检验").Controls("结论选择")
jl.Checked=True

1、勾选了,窗口和表里边勾选没反应。
2、MessageBox.没消息弹出
3、设置为真,增加行没有变成选中状态
[此贴子已经被作者于2017/8/3 16:10:52编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/3 16:25:00 [只看该作者]

你可以把代码写到DataRowAdded事件。

 

或者是,你可以直接赋值 e.DataRow("结论") = True

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
G流星雨
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:136 积分:1361 威望:0 精华:0 注册:2017/2/25 22:34:00
  发帖心情 Post By:2017/8/3 16:41:00 [只看该作者]


你可以把代码写到DataRowAdded事件。

 

直接赋值 e.DataRow("结论") = True

 



已经验证,可以实现了,非常感谢。


DataColChanged

If e.DataCol.Name = "结论" Then

    If e.newValue = True Then

MessageBox.Show(e.newValue )

        e.DataRow("项目一") = "OK"

        e.DataRow("项目二") = "OK"

    Else

        e.DataRow("项目一") = "NG"

        e.DataRow("项目二") = "NG"

    End If

End If


DataRowAdded

    If e.DataRow("结论") = True Then

        e.DataRow("项目一") = "OK"

        e.DataRow("项目二") = "OK"

    Else

        e.DataRow("项目一") = "NG"

        e.DataRow("项目二") = "NG"

    End If

都不能实现OK NG赋值



搞定了,非常感谢,原来我把上面的代码放到表属性就可以了(以前在全局表属性不行)

[此贴子已经被作者于2017/8/3 16:54:37编辑过]

 回到顶部
总数 13 上一页 1 2