[
attachment=19951][
attachment=19951][
attachment=19951][
attachment=19951]
(29-10-18, 06:19 PM)elgokr كتب : [ -> ]لا تحتاج الى تغيير النسخة او ما شبه
فقط قم بوضع كود الفورة هنا كاملاً
حتى يتم التعديل عليه بسيطاً وتوضيح ما تم فعله لتجنب تلك التنبيه
تحياتى لك
وتمنياتى لك التوفيق
هذا الكود مع ملف السورس في المرفقات
Public Class FRM_ACCOUNT
Dim CLS_ACCOUNT_ As New CLS_ACCOUNT
Dim CLS_END_ As New CLS_END
Dim COD__ As New FRM_ACCOUNT
Private Sub FRM_ACCOUNT_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
CMB_()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Sub cmb_()
Dim dt As New DataTable
dt.Clear()
dt = CLS_END_.SHOW_
CMB_END.DataSource = dt
CMB_END.ValueMember = "id"
CMB_END.DisplayMember = "name"
End Sub
Sub CREATENODE()
Dim TRN As New TreeNode
Dim DT As New DataTable
DT.Clear()
DT = CLS_ACCOUNT_.SHOW_
For I As Integer = 0 To DT.Rows.Count - 1
If DT.Rows(I)(2).ToString() = "00000000-0000-0000-0000-000000000000" Then
TRN = New TreeNode(DT.Rows(I)(1).ToString())
TRN.Tag = DT.Rows(I)(0).ToString()
TreeView1.Nodes.Add(TRN)
End If
Next
For Each NODE As TreeNode In TreeView1.Nodes
CHELD(NODE)
Next
End Sub
Sub CHELD(ByVal NODE As TreeNode)
Dim TRN As New TreeNode
Dim DT As New DataTable
DT.Clear()
DT = CLS_ACCOUNT_.SHOW_
For I As Integer = 0 To DT.Rows.Count - 1
Dim GUID_ As String = NODE.Tag
If DT.Rows(I)(2).ToString() = GUID_ Then
TRN = New TreeNode(DT.Rows(I)(1).ToString())
TRN.Tag = DT.Rows(I)(0).ToString()
NODE.Nodes.Add(TRN)
CHELD(TRN)
End If
Next
End Sub
Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
Try
CREATENODE()
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub CMB_END_KeyPress(sender As Object, e As KeyPressEventArgs) Handles CMB_END.KeyPress
e.Handled = True
End Sub
Private Sub CMB_END_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMB_END.SelectedIndexChanged
End Sub
Private Sub ButtonX4_Click(ByVal sender As Object, e As System.EventArgs) Handles ButtonX4.Click
Try
Dim F As New FRM_ALL_ACCOUNT
F.ShowDialog()
If F.IS_YES = True Then
Dim I As Integer = F.DGV.CurrentRow.Index
TXT_GUID_PARENT.Text = F.DGV.Rows(I).Cells(0).Value.ToString()
TXT_PARENT.Text = F.DGV.Rows(I).Cells(1).Value.ToString()
TXT_CODE_PARENT_GUIDE.Text = F.DGV.Rows(I).Cells(3).Value.ToString()
End If
Catch ex As Exception
End Try
End Sub
Private Sub ButtonX2_Click(sender As Object, e As EventArgs) Handles ButtonX2.Click
Try
If TXT_NAME.Text = Nothing Then
MessageBox.Show("يجب إدخال إسم الحساب", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'------------------------------------------------------------------------
If TXT_GUID_PARENT.Text = Nothing Then
MessageBox.Show("يجب إدخال الحساب الرئيسي", "نقص", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
'------------------------------------------------------------------------
Dim DT As New DataTable
DT.Clear()
DT = CLS_ACCOUNT_.SEARCH_NAME(TXT_NAME.Text)
If DT.Rows.Count > 0 Then
MessageBox.Show("الإسم موجود من قبل", "تنبيـــه", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
'------------------------------------------------------------------------
Dim COD__ As Double = 0
Dim DT_COD As New DataTable
DT_COD.Clear()
DT_COD = CLS_ACCOUNT_.COD_(TXT_GUID_PARENT.Text)
If DT_COD.Rows.Count > 0 Then
COD__ = Val(DT_COD.Rows(0)(0).ToString())
End If
If COD__ = "0" Then
COD__ = Val(TXT_CODE_PARENT_GUIDE.Text) + 10001
End If
'------------------------------------------------------------------------
CLS_ACCOUNT_.ADD_(TXT_NAME.Text, TXT_GUID_PARENT.Text, Val(COD__), Convert.ToInt32(CMB_END.SelectedValue))
MessageBox.Show("تمت عملية الحفظ بنجاح", "تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class