打开窗口bottom的代码:Forms("生产入库").open
afterload 代码
Dim jbr As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim id As Integer = user.name.IndexOf("@")
Dim str As String = user.Name.SubString(0,id)
jbr.text = str
e.Form.TimerInterval = 1000
e.Form.TimerEnabled = True
Dim gdhhh As WinForm.TextBox = e.Form.Controls("TextBox3")
DataTables("扫描配货明细").LoadFilter = "生产订单号码工单行号 = '" & gdhhh.text & "'"
DataTables("扫描配货明细").Load
DataTables("生产扫描异常").LoadFilter = "生产订单号码工单行号 = '" & gdhhh.text & "'"
DataTables("生产扫描异常").Load
Dim dr As WinForm.Button = e.Form.Controls("导入")
If user.IsRole("产控") Or user.IsRole("开发者") Then
dr.Enabled = True
Else
dr.Enabled = False
End If
Dim startdata As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim Enddata As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
startdata.Value = Date.Today.AddDays(-7)
Enddata.Value = Date.Today
加好友 
发短信
Post By：2017/3/9 13:37:00 [只看该作者]
此主题相关图片如下：qq截图20170309133519.png