Foxtable(狐表)用户栏目专家坐堂 → [求助]能实现这样的功能吗?


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

主题:[求助]能实现这样的功能吗?

美女呀,离线,留言给我吧!
rophy0952
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
[求助]能实现这样的功能吗?  发帖心情 Post By:2014/11/26 10:46:00 [只看该作者]

如图:同一个流水号的产品由两个班组共同完成,但要分开班组及刀数记录产量。能否实现,如果在第二次录入该流水号的产量时,将上一次录入的刀数的控件变成不可编辑的状态?例:流水号为A的产品,1班分切了1-5刀,2班分切了6-9刀。1班在录入的时候所有的刀数控件都是可以编辑的,当2班录入的时候,第1刀-第5刀的控件变成不可编辑。(具体是哪几个控件变不可编辑需依照上个班分切的刀数而定。)

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

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


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


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

 可以,具体,你做个例子上传上来

 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2014/11/26 11:04:00 [只看该作者]

上例子。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:问题.foxdb


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


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

 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:问题.foxdb


 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2014/11/26 13:21:00 [只看该作者]

刚才试过,上一条数据为2刀,但是只一个控件不可编辑

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


 回到顶部
美女呀,离线,留言给我吧!
rophy0952
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:581 积分:4989 威望:0 精华:0 注册:2014/6/12 14:55:00
  发帖心情 Post By:2014/11/26 13:44:00 [只看该作者]


[此贴子已经被作者于2014-11-26 13:44:58编辑过]

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


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

Dim dr As DataRow = DataTables("分切工piao信息").SQLFind("流水号 = '" & Forms("分切工piao录入").controls("流水号").text & "'", "[_Identify] desc")
If dr IsNot Nothing Then
    Dim idx As Integer = 1
    For i As Integer = 1 To 10
        If dr.IsNull("分切净重_" & i) = False Then
            idx = i
        End If
    Next
    For j As Integer = idx+1 To 12
        e.Form.Controls("txt" & j).Enabled = True
    Next
End If

 回到顶部