専門家。
ユーザーが Web アプリの 1 つにログインすると、すべての従業員の名前を含むドロップダウン リストが表示されます。
従業員はシステムにログインして、自分のエントリをデータベースに記録できます。
従業員は、別の従業員のエントリをログに記録できます。
これまで、従業員はドロップダウン リストから自分の名前を選択する必要がありましたが、一貫性とデータの整合性を維持するために、従業員が名前を入力することは望ましくありません。
現在の問題は、従業員のログイン名をドロップダウンのデフォルト オプションにする方法です。別の従業員のエントリを作成する場合、従業員はリストから別の名前を選択できます。
このタスクを達成する方法はありますか?
よろしくお願いします。
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