منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مساعدة فى حل المشاكل فى عرض البيانات

الصفحات : 1 2

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

(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 

(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

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

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

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

PHP كود :

DGV1.AllowUserToAddRows = False 

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

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

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

PHP كود :

DGV1.AllowUserToAddRows = False

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

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

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

وده الــ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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

طالب برمجة

MOSTAFA.KAMEL

طالب برمجة

MOSTAFA.KAMEL

محمود صالح

MOSTAFA.KAMEL

MOSTAFA.KAMEL