[طالب برمجة]

وضعت لك كود منع اضافة سطر فاضي في الآخر
راجع ردي السابق

[MOSTAFA.KAMEL]

(08-02-18, 02:42 AM)طالب برمجة كتب : وضعت لك كود منع اضافة سطر فاضي في الآخر
راجع ردي السابق

ياريس انا جربت الكود قبل ما ارد على حضرتك اكيد وفعلا شغال بس برضو بيضيف سطر فاضي

[طالب برمجة]

PHP كود :

If String.Concat(id.Trim, server.Trim, user.Trim, address.Trim, uptime.Trim, keepalive_timeout.Trim, radius.Trim) <> "" Then
    dgv.Rows.Add(id, server, user, address, uptime, keepalive_timeout, radius)
End If 


[MOSTAFA.KAMEL]

(08-02-18, 03:05 AM)طالب برمجة كتب :

PHP كود :

If String.Concat(id.Trim, server.Trim, user.Trim, address.Trim, uptime.Trim, keepalive_timeout.Trim, radius.Trim) <> "" Then
    dgv.Rows.Add(id, server, user, address, uptime, keepalive_timeout, radius)
End If 


تمام تسلم ايدك ياريس اشتغل تمام الف شكر

[محمود صالح]

طالب برمجة خلوه للكبيرة يا خونا 

هو بيدور على دي 

PHP كود :

DGV1.AllowUserToAddRows = False 


ضعها في اي مكان فى الزر

[MOSTAFA.KAMEL]

(08-02-18, 03:14 AM)محمود صالح كتب : طالب برمجة خلوه للكبيرة يا خونا 

هو بيدور على دي 

PHP كود :

DGV1.AllowUserToAddRows = False 


ضعها في اي مكان فى الزر

شكراااااا ياريس

[MOSTAFA.KAMEL]

طيب دلوقتى عايز مثلا بعد ما يتم عرض البيانات لو عايز اعمل مسح للبيانات الى هو عرضها من السيرفر ولما اضغط على بوتن مثلا يمسح البيانات الى هو حملها وتتمسح كمان من السيرفر يعنى بيخرج كل اليوزرات الى فتحا الان على السيرفر وتعمل تسجيل دخول من جديد 

وده الــapi الخاص بالمسح البيانات 

/ip/hotspot/host/remove

كود :

#Region " StringToDatatable "
   Function StringToDatatable(ByVal s As String) As DataTable
       Dim IPAddress As System.Net.IPAddress = System.Net.IPAddress.Parse(ip.Text)
       Dim mk = New Mikrotik(IPAddress)
       mk.Login(user.Text, pass.Text)
       mk.Send("/ip/hotspot/host/getall", False)
       mk.Send("=.proplist=.id", False)
       mk.Send("=.proplist=server", False)
       mk.Send("=.proplist=user", False)
       mk.Send("=.proplist=address", False)
       mk.Send("=.proplist=uptime", True)
       mk.Send("=.proplist=radius", False)
       mk.Send("=.proplist=!done", False)
       For Each row In mk.Read()
           Dim id As String = Regex.Match(row, "(?<=id=).+?(?=\=|$)").Value
           Dim server As String = Regex.Match(row, "(?<=server=).+?(?==|$)").Value
           Dim user As String = Regex.Match(row, "(?<=user=).+?(?==|$)").Value
           Dim address As String = Regex.Match(row, "(?<=address=).+?(?==|$)").Value
           Dim uptime As String = Regex.Match(row, "(?<=uptime=).+?(?==|$)").Value
           If String.Concat(id.Trim, server.Trim, user.Trim, address.Trim, uptime.Trim.Trim) <> "" Then
               DGV1.Rows.Add(id, server, user, address, uptime)
           End If
       Next

   End Function
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       DGV1.AllowUserToAddRows = False
       Me.DGV1.Rows.Clear()
       Dim dt As DataTable = StringToDatatable("")
       Me.DGV1.DataSource = dt

   End Sub