主题：[求助]简化代码

公司的生产区域很多，如果一条条在afterload上定义，哪实在太多了，请教如何简化，或者用什么别的简单的方法？

区域很乱：A101~A107,A201~207,A121~122.....没有规律，而且会根据需要更动。

 

Dim A101 As WinForm.TextBox = e.Form.Controls("A101")
Dim idx101 As Integer = Tables("生产主表").FindRow("生产区域 = 'A101'")
If idx101 > -1 Then
    Tables("生产主表").Position = idx101
    A101.Value = Tables("生产主表").Current("制令号")
Else
    A101.Value = ""
End If

 

----------------

以及所有textbox的click代码，是否可以在打开时，一起定义？

 

Dim idx As Integer = Tables("生产主表").FindRow("生产区域 = 'A101'")
If idx > -1 Then
    Tables("生产主表").Position = idx
    Forms("生产进度").open()
Else
    MessageBox.Show("此机台未上线或已完工.","提示")
End If

 

 

此主题相关图片如下：111.jpg


此主题相关图片如下：222.jpg


此主题相关图片如下：333.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目20151016.table