Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' '在此处放置初始化页的用户代码
Dim con As SqlConnection
Dim ds As New DataSet
Dim cmd As SqlCommand
Dim sql As String
If (Not IsPostBack) Then
con = New SqlConnection("Data Source=JXS;UID=sa;PWD=;database=erp")
sql = "select syscolumns.name from syscolumns, sysobjects where syscolumns.id=sysobjects.id and sysobjects.name='rl_person_basic'order by syscolumns.colid"
cmd = New SqlCommand(sql, con)
con.Open()
Dim adapter As SqlDataAdapter = New SqlDataAdapter(cmd)