代码在 “任务-xmfp_table1” 的click 里面
Dim id As String =e.Row("_identify")
If Forms("任务明细转移").opened AndAlso vars("转移拆分") = True AndAlso Tables("模拟关联表_table1").Current IsNot Nothing Then '----拆分项目的时候禁止筛选行
Dim bt1 As WinForm.Button = Forms("任务明细转移").Controls("Button1")
If bt1.Enabled = True Then
Return
End If
Dim Result As DialogResult
Result = MessageBox.Show("是否将所选的任务明细转移到任务" & "《" & e.Row("任务") & "》" , "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim t As Table = Tables("模拟关联表_table1")
For i As Integer = t.TopRow To t.BottomRow
t.Rows(i)("ryid") = id
Next
bt1.Enabled=True
vars("转移拆分") = False
MessageBox.Show("转移成功!","提示")
Forms("任务明细转移").Close
Else
bt1.Enabled=True
End If
End If
加好友 
发短信
Post By：2020/8/3 13:45:00 [只看该作者]
此主题相关图片如下：2.jpg