专家。
当用户登录我们的一个网络应用程序时,会出现一个下拉列表,其中包含我们所有员工的姓名。
员工可以登录系统将他或她的条目记录到数据库中。
该员工可以记录另一位员工的条目。
到目前为止,员工必须从下拉列表中选择他或她的姓名,我们不希望员工输入他们的姓名,只是为了保持一致性和保持数据完整性。
我们目前的问题是如何让员工的登录名成为下拉菜单中的默认选项。如果为其他员工进行条目,员工可以从列表中选择另一个姓名。
任何想法如何完成这项任务?
提前非常感谢。
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim s As String
Dim reader As OleDbDataReader
txtFullName.Text = Session.Item("assignedTo").ToString
'Initialize Connection
s = "Select login_id, UserName from tblusers ORDER BY UserName"
Dim connStr As String = ConfigurationManager.ConnectionStrings("allstringconstrng").ConnectionString
Dim conn As New OleDbConnection(connStr)
Dim cmd As New OleDbCommand(s, conn)
'Open the connection
conn.Open()
Try
'Execute the Login command
reader = cmd.ExecuteReader()
'Populate the list of Users
txtLoginName.DataSource = reader
txtLoginName.DataValueField = "login_id"
txtLoginName.DataTextField = "UserName"
txtLoginName.DataBind()
'Close the reader
reader.Close()
Finally
'Close Connection
conn.Close()
End Try
End If
End Sub
<--新代码-->试试
'Execute the Login command
reader = cmd.ExecuteReader()
'Populate the list of Users
Dim currentUserName As String = ""
While reader.Read()
If (reader("login_id").ToString().Equals(currentUserName)) Then
currentUserName = reader("UserName").ToString()
End If
End While
txtLoginName.SelectedValue = currentUserName
'Close the reader
reader.Close()
Finally
'Close Connection
conn.Close()
End Try