รบกวนขอคำปรึกษาหน่อยครับ เกียวกับการเช่าพื้นที่หลายๆที่ ประมาณ 300 บล็อค

update test (testpk,teststatus)values('"&"01"&"','"&"เช่าแล้ว"&"')

update test (testpk,teststatus)values('"&"02"&"','"&"เช่าแล้ว"&"')

ีีupdate test set teststatus='"& "เช่าแล้ว" & "' where testpk='"&"01"&"'

ีีupdate test set teststatus='"& "เช่าแล้ว" & "' where testpk='"&"02"&"'

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public class MainButton : Button
    {
        private string m_ValueNumber;
        public MainButton(string ValueNumber,Point PLocation)
        {
            this.Text = "ป " + ValueNumber.ToString();
            m_ValueNumber = ValueNumber;
            this.Size = new Size(60,60);
            this.Font = new Font(Font.FontFamily,8);
            this.BackColor = Color.Yellow;
            this.Margin = new Padding(0);
            this.Location = PLocation;
        }

        protected override void OnClick(EventArgs e)
        {
            MessageBox.Show(m_ValueNumber.ToString());
        }
    }

    public partial class Form1 : Form
    {
        
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {
            this.WindowState = FormWindowState.Maximized;
            this.AutoScroll = true;
           short x = 0;
            for (int b = 1; b <= 12; b++)
            {
                for (int a = 1; a <= 25; a++)
                {  
                    Button Button_Child = new MainButton(Add_Zero(x+a,3), new Point(a * 80,b * 80));
                    this.Controls.Add(Button_Child);
                }
                x += 25;
            }
    

        }
        private string Add_Zero(int Number, int Amount)
        {
            string result = Number.ToString();
            string zero = string.Empty;
            int LengthNum = result.Length;

            for (; LengthNum < Amount; LengthNum++)
            {
                zero += "0";
            }
            result = zero + result;
            return result;
        }
    }
}

    Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        For Each c As Control In Me.Controls
            If TypeOf c Is Button Then
                AddHandler c.Click, AddressOf JimThai
            End If
        Next
    End Sub

    Private Sub JimThai()
       'TODO
    End Sub

    Sub JimThai(sender As Object, e As EventArgs)
        'TO DO
        MsgBox(DirectCast(sender, Button).Text)
        'TO DO
    End Sub

    Public Shared Function CrossOrTranspose(Of T)(source As IEnumerable(Of IEnumerable(Of T))) As IEnumerable(Of IEnumerable(Of T))
        Return From r In source
               From c In r.Select(Function(x, i) New KeyValuePair(Of Integer, T)(i, x))
               Group c.Value By c.Key Into c = Group
               Select TryCast(c, IEnumerable(Of T))
    End Function

AddHandler c.Click, AddressOf JimThai
AddHandler c.Click, New EventHandler(AddressOf JimThai)

  Try
                Dim P52 As New SqlDataAdapter("select zonestatus,ZONEDATEEXPIRE from zone where zonenamep='" & "ป52" & "'", strcon)
                Dim d52 As New DataTable
                P52.Fill(d52) 'นำคำสั่ง sql ที่รันจาก d1 มาโชไนตาราง
                If d52.Rows(0)("ZONEDATEEXPIRE").ToString = Now.Date Then
                    ป52.Enabled = True
                    ป52.BackColor = Color.Yellow
                    ป52.Text = "ป 52"
                    Dim update As String
                    update = "update zone set zonestatus='" & "ว่าง" & "' where zonenamep='" & "ป52" & "'"
                    Savedata(update)
                Else
                    If d52.Rows(0)("zonestatus").ToString = "ไม่ว่าง" Then
                        ป52.Enabled = False
                        ป52.BackColor = Color.Red
                        ป52.Text = "ไม่ว่าง"
                    Else
                        ป52.Enabled = True
                        ป52.BackColor = Color.Yellow
                        ป52.Text = "ป 52"
                    End If
                End If
            Catch ex As Exception
            End Try

// แบบเต็ม
Button1.Click += new EventHandler(Button1_Click);
//แบบย่อ
Button1.Click += Button1_Click;

public delegate void EventHandler(object source, EventArgs e);

Sub JimThai(sender As Object, e As EventArgs)
    Dim b As Button = DirectCast(sender, Button)    
    MsgBox(b)
    'TO DO
    Call Beautiful(b)
End Sub

Sub Beautiful(ByVal b As Button)
    Dim strName As String = b.Name
    Dim strMsg As String = b.Text
    Dim strExt As String = b.Tag '*****
    b.Eanbled = True   
    '"update zone set zonestatus='" & "ว่าง" & "' where zonenamep='"  & strName  & "'"
End Sub

Try
    Dim P52 As New SqlDataAdapter("select zonestatus,ZONEDATEEXPIRE from zone where zonenamep='" & "ป52" & "'", strcon)
    Dim d52 As New DataTable
    P52.Fill(d52) 'นำคำสั่ง sql ที่รันจาก d1 มาโชไนตาราง
    If d52.Rows.Count > 0 Then    '*****
        If d52.Rows(0)("ZONEDATEEXPIRE") = Now.Date Then    '*****
            ป52.Enabled = True
            ป52.BackColor = Color.Yellow
            ป52.Text = "ป 52"
            Dim update As String
            update = "update zone set zonestatus='" & "ว่าง" & "' where zonenamep='" & "ป52" & "'"
            Savedata(update)
        Else
            If d52.Rows(0)("zonestatus").ToString = "ไม่ว่าง" Then
                ป52.Enabled = False
                ป52.BackColor = Color.Red
                ป52.Text = "ไม่ว่าง"
            Else
                ป52.Enabled = True
                ป52.BackColor = Color.Yellow
                ป52.Text = "ป 52"
            End If
        End If
    Else
        'TODO
    End If
Catch ex As Exception
    MsgBox(ex.Message) 
End Try

Sub JimThai(sender As Object, e As EventArgs)
    Dim b As Button = DirectCast(sender, Button)    
    MsgBox(b)
    'TO DO
    Call Beautiful(b)
End Sub

Sub Beautiful(ByVal b As Button)
Try
    Dim P52 As New SqlDataAdapter("select zonestatus,ZONEDATEEXPIRE from zone where zonenamep='" & b.Text & "'", strcon)
    Dim d52 As New DataTable
    P52.Fill(d52) 'นำคำสั่ง sql ที่รันจาก d1 มาโชไนตาราง
    If d52.Rows.Count > 0 Then    '*****
        If d52.Rows(0)("ZONEDATEEXPIRE") = Now.Date Then    '*****
            b.Enabled = True
            b.BackColor = Color.Yellow
            'b.Text = b.Text
            Dim update As String
            update = "update zone set zonestatus='" & "ว่าง" & "' where zonenamep='" & b.Text & "'"
            Savedata(update)
        Else
            If d52.Rows(0)("zonestatus").ToString().Trim() = "ไม่ว่าง" Then
                b.Enabled = False
                b.BackColor = Color.Red
                b.Text = "ไม่ว่าง"
            Else
                b.Enabled = True
                b.BackColor = Color.Yellow
                'b.Text = b.Text
            End If
        End If
    Else
        'TODO
    End If
Catch ex As Exception
    MsgBox(ex.Message) 
End Try

End Sub

Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    For Each c As Control In Me.Controls
        If TypeOf c Is Button Then
            AddHandler c.Click, AddressOf JimThai
            c.Tag = c.Text '***** เก็บค่าเดิมเอาไว้อ้างอิง
        End If
    Next
End Sub

Sub JimThai(sender As Object, e As EventArgs)
    Dim b As Button = DirectCast(sender, Button)    
    MsgBox(b)
    'TO DO
    Call Beautiful(b)
End Sub

Sub Beautiful(ByVal b As Button)
Try
    Dim P52 As New SqlDataAdapter("select zonestatus,ZONEDATEEXPIRE from zone where zonenamep='" & b.Text & "'", strcon)
    Dim d52 As New DataTable
    P52.Fill(d52) 'นำคำสั่ง sql ที่รันจาก d1 มาโชไนตาราง
    If d52.Rows.Count > 0 Then    '*****
        If d52.Rows(0)("ZONEDATEEXPIRE") = Now.Date Then    '*****
            b.Enabled = True
            b.BackColor = Color.Yellow
            b.Text = b.Tag ' *****
            Dim update As String
            update = "update zone set zonestatus='" & "ว่าง" & "' where zonenamep='" & b.Text & "'"
            Savedata(update)
        Else
            If d52.Rows(0)("zonestatus").ToString().Trim() = "ไม่ว่าง" Then
                b.Enabled = False
                b.BackColor = Color.Red
                b.Text = "ไม่ว่าง"
            Else
                b.Enabled = True
                b.BackColor = Color.Yellow
                b.Text = b.Tag ' *****
            End If
        End If
    Else
        'TODO
    End If
Catch ex As Exception
    MsgBox(ex.Message) 
End Try

End Sub

Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    For Each c As Control In Me.Controls
        If TypeOf c Is Button Then
            AddHandler c.Click, AddressOf JimThai
            c.Tag = c.Text '***** เก็บค่าเดิมเอาไว้อ้างอิง
        End If
    Next
End Sub

Me.Controls.OfType(Of Button)().ToList().ForEach(Sub(c As Button)
                                                     AddHandler c.Click, AddressOf xxx
                                                     c.Tag = c.Text
                                                 End Sub)