Imports System.DataImports System.Data.OleDbImports System.WebImports System.Web.UI.PageImports System.Web.HttpContext 'effect: Data Binding 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 If Field_Name Is Nothing The Return "Error MYFORM. VB line: 17" else if myTable.Rows (0) .Item (field_name) is dbnull. Value1 Return "" Else Return myTable.Rows (0) .Item (Field_name) end if end if end function
End ClassPublic 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 "error sources MYFORM. VB line: 17 "Else try return mytable.rows (0) .Item (field_name) catch excetion return space (1) End Try End If End Functionend Class
