31 lines
892 B
VB.net
31 lines
892 B
VB.net
Public Class AddMember_frm
|
|
Public AddUsercmb As List(Of Dictionary(Of String, String))
|
|
Public Limitscmb As List(Of Dictionary(Of String, String))
|
|
Public Pojercmb As List(Of Dictionary(Of String, String))
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
If ComboBox1.Text.Length < 1 Then
|
|
MsgBox("未选择添加成员。")
|
|
Return
|
|
End If
|
|
If ComboBox4.Text.Length < 1 Then
|
|
MsgBox("未选择添加成员权限。")
|
|
Return
|
|
End If
|
|
If ComboBox3.Text.Length < 1 Then
|
|
MsgBox("未选择成员所属项目。")
|
|
Return
|
|
End If
|
|
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub AddMember_frm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
End Class
|