pb的数据窗口中的复选框,选中则在另一个dw窗口中显示,不选中则dw窗口中该条数据消失

Posted 2023-05-11

用这窗口的itemchanged事件触发去写
if data ='1' then
rowscopy
else
rowsmove
end if追问

怎么程序永远只执行rowscopy命令呢？还有我那个数据窗口的复选框点他也打不起勾，是不是这个原因才使运行达不到预期效果，该怎么解决呀？

追答

你设置的不对吧，都可以的

追问

我直接在数据窗口中点,那个复选框是可以打勾的，但是把刚刚那个程序放进去就不可以了，而且他永远都只执行rowscopy，没有else的情况

追答

你放在哪个事件里的？itemchanged
你用messagebox,把data值读出来看看，或是你用debug跟踪一下，看看各个参数
有报错信息吗？

追问

是在itemchanged里写的，代码是：
if data ='1' then
this.rowscopy(row,row, primary!, dw_1, dw_1.rowcount() + 1, primary!)
else
this.RowsMove(1, dw_1.DeletedCount(), Delete!, dw_1, 1, Primary!)
end if
用messagebox测出的data一直都是1。是不是还要写其他的程序来判断取'1'和取'0'的情况呢，那个程序又该怎么写呢？

追答

你在editchanged里写了检测一下

参考技术A 两个数据窗口实现数据共享sharedata，左边的不用写任何脚本，右侧的设置过滤条件，过滤出复选框选中的数据行追问

过滤条件是这个吗：dw_2.setfilter("data = '1'");，但还是运行不出来，你可以再说详细一点吗

追答

前题是，你得建立两数据源相同的，外观还一样的数据窗口对象，一个放在dw_1,另一个放在dw_2k中，数据源相同才能共享，第2个数据窗口对象的filter属性设置一下！
在dw_2.的itemchanged事件（也可能是editedchanged事件）中加上dw_2.accepttext()，试试！

如何使pb数据窗口不可编辑变为可编辑

对于整个数据窗口设置为只读后不可编辑，修正一下只读属性就可以了，
dw_1.object.datawindow.readonly = "no"

对于数据窗口里面某一列设置Tab=0后也是无法编辑，需要将其调整过来
dw_1.modify( "某列名.TabSequence = 某一具体数值" )

还想到的一种就是将数据窗口某一列的protect属性设置了表达式，进行保护，将表达式删除即可

这样回答不知道够不，其他的暂时未想到…… ：） 参考技术A 打开数据窗口，点击 工具栏中的 Tab order ，会看到每一列上方都一个数字
某列 不能修改编辑时，为0；允许修改编辑时，为非0数
各列的数字大小不要相同，一般都用10的整数倍
这个数据的大小顺序，决定了在运行该数据窗口，用tab键的顺序 参考技术B dw_1.object.datawindow.readonly = true //将数据窗口设为只读状态 参考技术C taborder设定上值，row-update里选择允许更新的表和列就行