别人的学习文件三-优快云博客

本文链接：https://blog.youkuaiyun.com/wsyl_czl/article/details/233838

博客展示了VB代码，定义了两个类myform和abcdform用于数据绑定。类中包含构造函数，接收SQL语句获取数据表，还有绑定函数，根据字段名返回对应数据，处理了字段为空和异常情况。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Imports System.Data
Imports System.Data.OleDb
Imports System.Web
Imports System.Web.UI.Page
Imports System.Web.HttpContext
'作用:数据绑定
Public Class myform
    ' Private mytable As DataTable
    Public mytable As DataTable
    Sub New(ByVal sql As String)
        mytable = mydb.gettable(sql)
    End Sub
    Function bind(ByVal field_name As String)
        If field_name Is Nothing Then
            Return "出错来源MYFORM.VB 行:17"
        Else
            If mytable.Rows(0).Item(field_name) Is DBNull.Value Then
                Return ""
            Else
                Return mytable.Rows(0).Item(field_name)
            End If
        End If
    End Function

End Class
Public Class abcdform
    Public mytable As DataTable
    Sub New(ByVal sql As String)
        mytable = mydb.gettable(sql)
    End Sub
    Function bind(ByVal obj As Object, ByVal field_name As String)
        If field_name Is Nothing Then
            Return "出错来源MYFORM.VB 行:17"
        Else
            Try
                Return mytable.Rows(0).Item(field_name)
            Catch ex As Exception
                Return Space(1)
            End Try
        End If
    End Function
End Class