- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]能实现这样的功能吗？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60523)
-- 发布时间：2014/11/26 10:46:00
-- [求助]能实现这样的功能吗？
如图：同一个流水号的产品由两个班组共同完成，但要分开班组及刀数记录产量。能否实现，如果在第二次录入该流水号的产量时，将上一次录入的刀数的控件变成不可编辑的状态？例：流水号为A的产品，1班分切了1－5刀，2班分切了6－9刀。1班在录入的时候所有的刀数控件都是可以编辑的，当2班录入的时候，第1刀－第5刀的控件变成不可编辑。（具体是哪几个控件变不可编辑需依照上个班分切的刀数而定。）
此主题相关图片如下：qq截图20141126103800.png
此主题相关图片如下：qq截图20141126104056.png
-- 发布时间：2014/11/26 11:00:00
--
可以，具体，你做个例子上传上来
-- 发布时间：2014/11/26 11:04:00
--
上例子。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题.foxdb |
-- 发布时间：2014/11/26 11:43:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:问题.foxdb |
-- 发布时间：2014/11/26 13:21:00
--
刚才试过，上一条数据为2刀，但是只一个控件不可编辑
此主题相关图片如下：qq截图20141126132105.png
-- 发布时间：2014/11/26 13:44:00
--
[此贴子已经被作者于2014-11-26 13:44:58编辑过]
-- 发布时间：2014/11/26 14:20:00
--
Dim dr As DataRow = DataTables("分切工票信息").SQLFind("流水号 = \'" & Forms("分切工票录入").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