Как исправить нулевые элементы в списке хотя есть элементы на ASP.NET и еще VB.NET
Привет
Я новичок в веб-разработке. Я создаю новое веб-приложение с помощью asp.net и еще VB.net-да.
на странице, с которой я работаю, есть несколько полей, но меня беспокоит то, что я добавил код с помощью Javascript для добавления и удаления элементов из списка и в него. значения поступают из выпадающего списка.
но когда я запускаю код позади, чтобы добавить элементы списка в БД, он всегда дает мне "индекс находится вне диапазона", хотя там больше 2 элементов.
Мне действительно нужна твоя помощь.
Спасибо.
Что я уже пробовал:
VB codebehind-это : ошибка возникает в цикле for.
Private Sub CmdSave_Click(sender As Object, e As EventArgs) Handles CmdSave.Click Try If RecSet.State = 1 Then RecSet.Close() SQL1 = "SELECT * FROM REF_Committees WHERE CommitteeId = " & Trim(TxtId.Text) RecSet.Open(SQL1, Conn, ADODB.CursorTypeEnum.adOpenKeyset) If Not RecSet.EOF Then SQL1 = "DELETE FROM REF_Committees WHERE CommitteeId = " & Trim(TxtId.Text) : Conn.Execute(SQL1) End If 'GET VARIABLES Call GetValues(2) : Call GetValues(3) 'INSERT RECORD SQL1 = "INSERT INTO REF_Committees VALUES (" SQL1 = SQL1 & Trim(TxtId.Text) & ",'" & Trim(TxtDesc.Text) & "','False'," & YearIdVar & "," & SemesterIdVar & ",'True','True'," & Application("SysUserIdVar") & ",'" SQL1 = SQL1 & Format(DateValue(Now.Date), "MM/dd/yyyy") & " " & Format(TimeValue(TimeOfDay), "hh:mm:ss tt") & "')" Conn.Execute(SQL1) Dim i As Integer = 0 For i = 0 To LstMembers.Rows - 1 If RecSet.State = 1 Then RecSet.Close() LstMembers.SelectedIndex = i : LstTitles.SelectedIndex = i SQL1 = "SELECT MemberId FROM REF_Members WHERE MemberDesc = '" & LstMembers.SelectedItem.Text & "'" RecSet.Open(SQL1, Conn, ADODB.CursorTypeEnum.adOpenKeyset) If Not RecSet.EOF Then SQL1 = "INSERT INTO REF_Committees_Mem VALUES (" SQL1 = SQL1 & Trim(TxtId.Text) & "," & RecSet(0).Value & ",'" & LstTitles.SelectedItem.Text & "','True','True'," & Application("SysUserIdVar") & ",'" SQL1 = SQL1 & Format(DateValue(Now.Date), "MM/dd/yyyy") & " " & Format(TimeValue(TimeOfDay), "hh:mm:ss tt") & "')" Conn.Execute(SQL1) End If Next Call CleanScreen() Catch ex As Exception End Try End Sub() Javascript to add and remove items is : function AddMember() { var txtValue = document.getElementById(""); var listBox = document.getElementById(""); var option = document.createElement("OPTION"); option.innerHTML = txtValue.value; option.value = txtValue.value; var i; for (i = listBox.options.length - 1; i >= 0; i--) { if (listBox.options[i].value == txtValue.value) { alert("This Member Is Already In The List"); return false; } } listBox.appendChild(option); txtValue.value = ""; return AddTitle(); return false; } function AddTitle() { var txtValue = document.getElementById(""); var listBox = document.getElementById(""); var option = document.createElement("OPTION"); option.innerHTML = txtValue.value; option.value = txtValue.value; listBox.appendChild(option); txtValue.value = ""; return false; } function DeleteMember() { var MemberList = document.getElementById(""); var TitlesList = document.getElementById(""); var i; for (i = MemberList.options.length - 1; i >= 0; i--) { if (MemberList.options[i].selected == true) { MemberList.remove(i); TitlesList.remove(i); } } return; }