以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  双击满足条件的行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112765)

--  作者:有点甜
--  发布时间:2018/1/2 16:22:00
--  

doubleclick事件

 

If e.row("订单状态") = "进行中" Then

    forms("毛坯工序维护").Show

End If

 

生成流水号,参考

 

http://www.foxtable.com/webhelp/scr/2403.htm

 


--  作者:有点甜
--  发布时间:2018/1/2 17:02:00
--  
表格的【doubleclick】事件,不是控件的事件。
--  作者:有点甜
--  发布时间:2018/1/2 18:07:00
--  

1、你如何绑定表的?设置属性?编写代码?如果写代码贴出代码;

 

2、你试试在窗口的表格的doubleclick事件、表属性的doubleclick事件,都写代码。


--  作者:有点蓝
--  发布时间:2018/1/2 20:50:00
--  
If e.Row("条码状态") = "进行中" Then
e.cancel = true
    forms("毛坯工序维护").Show
End If

--  作者:有点蓝
--  发布时间:2018/1/2 21:34:00
--  
If e.Row("条码状态") = "进行中" Then
    e.cancel = True
    forms("毛坯工序维护").Show
    MainTable = Tables("毛坯工序状态表")
End If

--  作者:有点蓝
--  发布时间:2018/1/2 21:58:00
--  
参考:http://www.foxtable.com/webhelp/scr/2403.htm
--  作者:有点蓝
--  发布时间:2018/1/2 22:05:00
--  
如果是模式窗口,去掉这句
 MainTable = Tables("毛坯工序状态表")

--  作者:有点蓝
--  发布时间:2018/1/2 22:29:00
--  
我测试没有问题。

删除项目里的bin目录,重启项目试试

--  作者:有点蓝
--  发布时间:2018/1/2 22:54:00
--  
代码没有问题。再表里增加行并填入投产日期自然就会生成合适的编码
--  作者:有点甜
--  发布时间:2018/1/3 9:54:00
--  

参考代码,自行修改

 

Dim cr = Tables("表A").current
For i As Integer = 1 To cr("第一列")
    Dim r As Row = Tables("表B").addnew
    r("第二列") = cr("第二列")
    r("第三列") = cr("第三列")
    r("编码") = format(cr("日期"), "yyyyMM") & format(i, "000")
Next