此主题相关图片如下：2-24.png
登记按钮代码：
Dim nm1 As String = e.Form.Controls("nm1").value
Dim nm As String = e.Form.Controls("nm").value
Dim tb As Table=Tables("数据更改统计表")
Dim dr As DataRow=DataTables("设计进度跟踪表").find("模号='" & nm & "'")
Dim Result As DialogResult
Dim tm As Date= e.Form.Controls("DateTimePicker1")=Date.Today
Dim bt1 As WinForm.Button = e.Form.Controls("Button1")
Dim starck As WinForm.RadioButton = e.Form.Controls("starck")
'''''''''''''''''''''''
'If starck.Checked Then
If dr IsNot Nothing Then
Select Case task
Case "设计"
If dr("设计_设计人员") <>"" Then
result=MessageBox.Show(nm & "模具已经分配设计,是否重新分配","提示",MessageBoxButtons.OKCancel)
If result=DialogResult.OK Then
dr("设计_设计人员")=nm1
dr("设计_开始时间")=tm
End If
Else
dr("设计_设计人员")=nm1
dr("设计_开始时间")=tm
End If
End Select
End If
单击按钮后应该在设计区域增加设计人员 开始时间的记录，但现在没有反应，不知哪里出错了，请老师帮忙查下，谢谢
[此贴子已经被作者于2019/2/24 14:42:44编辑过]
加好友 
发短信
Post By：2019/2/24 14:41:00 [只看该作者]
