With objDs.Tables(0)
Dim colbind As System.Web.UI.WebControls.BoundColumn
For i = 0 To .Columns.Count - 1
colbind = New System.Web.UI.WebControls.BoundColumn()
colbind.DataField = .Columns(i).ColumnName
Select Case .Columns(i).ColumnName
Case "seq"
colbind.Visible = True
colbind.HeaderText = "序号"
Case "sno"
colbind.Visible = False
colbind.HeaderText = "编号"
Case "sname"
colbind.Visible = True
colbind.HeaderText = "名称"
Case Else
colbind.Visible = True
colbind.HeaderText = .Columns(i).ColumnName
End Select
GridUser.Columns.Add(colbind)
Next
GridUser.DataSource = .DefaultView
GridUser.DataBind()
End With