我正在尝试使用 vb.net 和 asp（visual studio 2008）网站制作一个简单的 Gridview，该网站适用于 sql 数据库中的单个表。我手动编写了所有语句，它们不会自动生成（删除、插入、更新）。插入和更新工作正常并提交到数据库。尝试删除时，出现此错误：
“您已指定您的删除命令比较 SqlDataSource 'mydatasource' 上的所有值，但传入值的字典为空。传入有效字典以进行删除或将模式更改为 OverwriteChanges。”
我一直在阅读有关启用乐观并发可以纠正此问题的信息，但除了让数据源自动生成更新、删除、插入语句时，我不知道如何启用它。我不在这里这样做。这个相同的代码在我正在处理的另一个项目中工作，所以我很茫然。很感谢任何形式的帮助。
******************************************ASP CODE***************************************************
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
<%@ Register assembly="System.Web.Entity, Version=3.5.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
namespace="System.Web.UI.WebControls" tagprefix="asp" %>
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-
transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
<title> OnCall Schedule </title>
<style type="text/css">
#form1
{
height: 731px;
width: 1122px;
}
</style>
</head>
<body>
<form id="frmDefault" method="post" runat="server">
<asp:ToolkitScriptManager ID="ToolkitScriptManager2" runat="server">
</asp:ToolkitScriptManager>
<div>
</div>
<asp:SqlDataSource ID="dsOncallGroup" runat="server"
ConnectionString="<%$ ConnectionStrings:DiscussSQLConnectionString %>"
SelectCommand="SELECT * FROM tblOnCall WHERE (tblOnCall.fldOnCallGroup = @fldOnCallGroup)
AND (tblOnCall.fldEndOnCall > GETDATE())
ORDER BY tblOnCall.fldOnCallGroup, tblOnCall.fldEndOnCall, tblOnCall.fldRank"
OldValuesParameterFormatString="original_{0}"
ConflictDetection="CompareAllValues"
DeleteCommand="DELETE FROM tblOnCall WHERE fldOCID = @fldOCID"
InsertCommand="INSERT INTO [tblOnCall] ([fldOnCallGroup], [fldStartOnCall], [fldEndOnCall], [fldRank],
[fldEmpName], [fldEmpWorkPhone],
[fldEmpHomePhone],[fldEmpHomeCellPhone],[fldEmpAltPhone],[fldOCPreferredContact])
VALUES (@fldOnCallGroup, @fldStartOnCall, @fldEndOnCall, @fldRank, @fldEmpName, @fldEmpWorkPhone, @fldEmpHomePhone,
@fldEmpHomeCellPhone, @fldEmpAltPhone, @fldOCPreferredContact)"
UpdateCommand="UPDATE [tblOnCall] SET [fldOnCallGroup] = @fldOnCallGroup, [fldStartOnCall] = @fldStartOnCall,
[fldEndOnCall] = @fldEndOnCall, [fldRank] = @fldRank, [fldEmpName] = @fldEmpName, [fldEmpWorkPhone] =
@fldEmpWorkPhone,
[fldEmpHomePhone] = @fldEmpHomePhone,[fldEmpHomeCellPhone] = @fldEmpHomeCellPhone,[fldEmpAltPhone] = @fldEmpAltPhone,
[fldOCPreferredContact] = @fldOCPreferredContact
WHERE [fldOCID] = @original_fldOCID">
<SelectParameters>
<asp:ControlParameter ControlID="cboOncallGroup" Name="fldOnCallGroup"
PropertyName="SelectedValue" Type="String" />
</SelectParameters>
<DeleteParameters>
<asp:Parameter Name= "original_fldOCID" Type="Int16" />
</DeleteParameters>
<UpdateParameters>
<asp:Parameter Name="fldOnCallGroup" Type="String" ConvertEmptyStringToNull="false" />
<asp:Parameter Name="fldStartOnCall" DbType ="DateTime2" />
<asp:Parameter Name="fldEndOnCall" DbType ="DateTime2" />
<asp:Parameter Name= "fldRank" Type="Int16" />
<asp:Parameter Name= "fldEmpName" Type="String" />
<asp:Parameter Name= "fldEmpWorkPhone" Type="String" />
<asp:Parameter Name= "fldEmpHomePhone" Type="String" />
<asp:Parameter Name= "fldEmpHomeCellPhone" Type="String" />
<asp:Parameter Name= "fldEmpAltPhone" Type="String" />
<asp:Parameter Name= "fldOCPreferredContact" Type="String" />
<asp:Parameter Name="original_fldOnCallGroup" Type="String" ConvertEmptyStringToNull="false" />
<asp:Parameter Name="original_fldStartOnCall" DbType="DateTime2" />
<asp:Parameter Name="original_fldEndOnCall" DbType="DateTime2" />
<asp:Parameter Name= "original_fldRank" Type="Int16" />
<asp:Parameter Name= "original_fldEmpName" Type="String" />
<asp:Parameter Name= "original_fldEmpWorkPhone" Type="String" />
<asp:Parameter Name= "original_fldEmpHomePhone" Type="String" />
<asp:Parameter Name= "original_fldEmpHomeCellPhone" Type="String" />
<asp:Parameter Name= "original_fldEmpAltPhone" Type="String" />
<asp:Parameter Name= "original_fldOCPreferredContact" Type="String" />
</UpdateParameters>
<InsertParameters>
<asp:Parameter Name="fldOnCallGroup" Type="String" />
<asp:Parameter DbType="DateTime2" Name="fldStartOnCall" />
<asp:Parameter DbType="DateTime2" Name="fldEndOnCall" />
<asp:Parameter Name="fldRank" Type="Int16" />
<asp:Parameter Name="fldEmpName" Type="String" />
<asp:Parameter Name="fldEmpWorkPhone" Type="String" />
<asp:Parameter Name="fldEmpHomePhone" Type="String" />
<asp:Parameter Name="fldEmpHomeCellPhone" Type="String" />
<asp:Parameter Name="fldEmpAltPhone" Type="String" />
<asp:Parameter Name="fldOCPreferredContact" Type="String" />
<asp:Parameter Name="original_fldOnCallGroup" Type="String" ConvertEmptyStringToNull="false" />
<asp:Parameter Name="original_fldStartOnCall" DbType="DateTime2" />
<asp:Parameter Name="original_fldEndOnCall" DbType="DateTime2" />
<asp:Parameter Name= "original_fldRank" Type="Int16" />
<asp:Parameter Name= "original_fldEmpName" Type="String" />
<asp:Parameter Name= "original_fldEmpWorkPhone" Type="String" />
<asp:Parameter Name= "original_fldEmpHomePhone" Type="String" />
<asp:Parameter Name= "original_fldEmpHomeCellPhone" Type="String" />
<asp:Parameter Name= "original_fldEmpAltPhone" Type="String" />
<asp:Parameter Name= "original_fldOCPreferredContact" Type="String" />
</InsertParameters>
</asp:SqlDataSource>
<asp:SqlDataSource ID="dsListbox" runat="server"
ConnectionString="<%$ ConnectionStrings:DiscussSQLConnectionString %>"
SelectCommand="SELECT DISTINCT [fldOnCallGroup] FROM [tblOnCall]">
</asp:SqlDataSource>
<br />
<div style="margin-left: 50px">
<asp:Image ID="Image1" runat="server" Height="100px"
ImageUrl="~/images/ITSLogo.jpg" Width="100px" />
<br /> <br /> <br /> <br />
<asp:DropDownList ID="cboOncallGroup" runat="server" DataSourceID="dsListbox" DataTextField="fldOnCallGroup"
DataValueField="fldOnCallGroup" AppendDataBoundItems="true"
OnSelectedIndexChanged="cboOnCallGroup_SelectedIndexChanged" AutoPostBack="true" Height="19px" Width="237px">
</asp:DropDownList>
</div>
<asp:SqlDataSource ID="dsEmp" runat="server"
ConnectionString="<%$ ConnectionStrings:DiscussSQLConnectionString %>"
SelectCommand="SELECT DISTINCT [fldEmpName] FROM [tblOnCall]">
</asp:SqlDataSource>
<br /> <br />
<div style="margin-left: 50px">
<asp:Gridview ID="gvOnCallSchedule" runat="server" AllowSorting="True" AllowPaging="True" showfooter="true"
OnRowUpdating="GvOnCall_Update" onRowCommand="gvOnCallSchedule_RowCommand" DataKeyNames="fldOCID"
BackColor="Aqua" DataSourceID="dsOncallGroup" Font-Bold="True"
Font-Italic="False" Font-Overline="False" Font-Strikeout="False"
Font-Underline="False" ForeColor="#333333" HorizontalAlign="Justify"
CellPadding="4" GridLines="None" PageSize="20" AutoGenerateColumns ="false"
OnSelectedIndexChanged="cboOnCallGroup_SelectedIndexChanged">
<Columns>
<asp:TemplateField ShowHeader="false">
<FooterTemplate>
<asp:ImageButton ID="AddButton" runat="server" CommandName="Insert" ImageURL="~/images/New.png"
Text="Add" ToolTip="Add New On Call Record" />
</FooterTemplate>
<EditItemTemplate>
<asp:ImageButton ID="UpdateButton" runat="server" CausesValidation="False" CommandName="Update"
ImageUrl="~/images/Save.png" Text="Update" ToolTip="Update" />
<asp:ImageButton ID="CancelButton" runat="server" CausesValidation="false" CommandName="Cancel"
ImageURL="~/images/Cancel.png" Text="Cancel" ToolTip="Cancel" />
</EditItemTemplate>
<ItemTemplate>
<asp:ImageButton ID="EditButton" runat="server" CausesValidation="False" CommandName="Edit"
ImageUrl="~/images/Edit.gif" Text="Edit" ToolTip="Edit" />
<asp:ImageButton ID="DeleteButton" runat="server" CausesValidation="False" CommandName="Delete"
ImageUrl="~/images/Delete.png" Text="Delete" ToolTip="Delete" />
</ItemTemplate>
<ItemStyle Wrap="false" />
</asp:TemplateField>
<asp:Boundfield headertext="fldOCID" datafield="fldOCID" sortexpression="fldOCID" visible="false"
InsertVisible="False" />
<asp:TemplateField headertext="On Call Group">
<ItemTemplate>
<asp:DropDownList ID="ddlOCGroup" width="250px" runat="server" datavaluefield="fldOnCallGroup" Enabled="false"
DataSourceID= "dsListbox" SelectedValue="<%# Bind('fldOnCallGroup') %>">
</asp:DropDownList>
</ItemTemplate>
<FooterTemplate>
<asp:DropDownList ID="ftrddlOCGroup" width="250px" runat="server" datavaluefield="fldOnCallGroup"
DataSourceID= "dsListbox" SelectedValue="<%# Bind('fldOnCallGroup') %>">
</asp:DropDownList>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField headertext="Start Date/Time">
<ItemTemplate>
<asp:Textbox ID="txtStartOnCall" runat="server" Text='<%# Bind("fldStartOnCall") %>'>
</asp:Textbox>
<asp:Image ID="calpopup" runat="server" ImageUrl="~/images/calendar2.png" />
<asp:CalendarExtender ID="StartOnCallCal" runat="server" TargetControlID="txtStartOnCall"
PopupButtonID="calpopup" PopupPosition="Right" format="MM/dd/yyyy hh:mm:ss tt">
</asp:CalendarExtender>
</ItemTemplate>
<FooterTemplate>
<asp:Textbox ID="txtStartOnCallFtr" runat="server" Text='<%# Bind("fldStartOncall") %>'>
</asp:Textbox>
<asp:Image ID="calpopupFtr" runat="server" ImageUrl="~/images/calendar2.png" />
<asp:CalendarExtender ID="StartOnCallCalFtr" runat="server" TargetControlID="txtStartOnCallFtr"
PopupButtonID="calpopupFtr" PopupPosition="Right" format="MM/dd/yyyy hh:mm:ss tt">
</asp:CalendarExtender>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField headertext="End Date/Time">
<ItemTemplate>
<asp:Textbox ID="txtEndOnCall" runat="server" Text='<%# Bind("fldEndOnCall") %>'>
</asp:Textbox>
<asp:Image ID="calpopup2" runat="server" ImageUrl="~/images/calendar2.png" />
<asp:CalendarExtender ID="EndOnCallCal" runat="server" TargetControlID="txtEndOnCall"
PopupButtonID="calpopup2" PopupPosition="Right" format="MM/dd/yyyy hh:mm:ss tt">
</asp:CalendarExtender>
</ItemTemplate>
<FooterTemplate>
<asp:Textbox ID="txtEndOnCallFtr" runat="server" Text='<%# Bind("fldEndOnCall") %>'>
</asp:Textbox>
<asp:Image ID="calpopup2Ftr" runat="server" ImageUrl="~/images/calendar2.png" />
<asp:CalendarExtender ID="EndOnCallCalFtr" runat="server" TargetControlID="txtEndOnCallFtr"
PopupButtonID="calpopup2Ftr" PopupPosition="Right" format="MM/dd/yyyy hh:mm:ss tt">
</asp:CalendarExtender>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField headertext="Call Order">
<ItemTemplate>
<asp:Textbox ID="lblCallOrder" runat="server" Text='<%# Bind("fldRank") %>'>
</asp:Textbox>
</ItemTemplate>
<FooterTemplate>
<asp:Textbox ID="txtCallOrderFtr" runat="server" Text='<%# Bind("fldOnCallGroup") %>'>
</asp:Textbox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="OnCall Analyst">
<ItemTemplate>
<asp:DropDownList ID="ddlAnalyst" runat="server" datavaluefield="fldEmpName"
datasourceID="dsEmp" SelectedValue='<%# Bind("fldEmpName") %>'>
</asp:DropDownList>
</ItemTemplate>
<FooterTemplate>
<asp:DropDownList ID="ddlAnalystFtr" runat="server" datavaluefield="fldEmpName"
DataSourceID= "dsEmp" SelectedValue='<%# Bind("fldEmpName") %>'>
</asp:DropDownList>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField headertext="Work Phone">
<ItemTemplate>
<asp:Textbox ID="lblWorkPhone" runat="server" Text='<%# Bind("fldEmpWorkPhone") %>'>
</asp:Textbox>
</ItemTemplate>
<FooterTemplate>
<asp:Textbox ID="txtWorkPhoneFtr" runat="server" Text='<%# Bind("fldEmpWorkPhone") %>'>
</asp:Textbox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField headertext="Home Phone">
<ItemTemplate>
<asp:Textbox ID="lblHomePhone" runat="server" Text='<%# Bind("fldEmpHomePhone") %>'>
</asp:Textbox>
</ItemTemplate>
<FooterTemplate>
<asp:Textbox ID="txtHomePhoneFtr" runat="server" Text='<%# Bind("fldEmpHomePhone") %>'>
</asp:Textbox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField headertext="Personal Cell">
<ItemTemplate>
<asp:Textbox ID="lblHomeCellPhone" runat="server" Text='<%# Bind("fldEmpHomeCellPhone") %>'>
</asp:Textbox>
</ItemTemplate>
<FooterTemplate>
<asp:Textbox ID="txtHomeCellPhoneFtr" runat="server" Text='<%# Bind("fldEmpHomeCellPhone") %>'>
</asp:Textbox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField headertext="Alternate Phone">
<ItemTemplate>
<asp:Textbox ID="lblAltPhone" runat="server" Text='<%# Bind("fldEmpAltPhone") %>'>
</asp:Textbox>
</ItemTemplate>
<FooterTemplate>
<asp:Textbox ID="txtAltPhoneFtr" runat="server" Text='<%# Bind("fldEmpAltPhone") %>'>
</asp:Textbox>
</FooterTemplate>
</asp:TemplateField>
<asp:TemplateField headertext="Preferred Contact">
<ItemTemplate>
<asp:Textbox ID="lblOCPreferredContact" runat="server" Text='<%# Bind("fldOCPreferredContact") %>'>
</asp:Textbox>
</ItemTemplate>
<FooterTemplate>
<asp:Textbox ID="txtOCPreferredContactFtr" runat="server" Text='<%# Bind("fldOCPreferredContact") %>'>
</asp:Textbox>
</FooterTemplate>
</asp:TemplateField>
</Columns>
<FooterStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
<PagerStyle BackColor="#666666" ForeColor="White" HorizontalAlign="Center" />
<SelectedRowStyle BackColor="#C5BBAF" Font-Bold="True" ForeColor="#333333" />
<HeaderStyle BackColor="#1C5E55" Font-Bold="True" ForeColor="White" />
<EditRowStyle BackColor="#7C6F57" />
<AlternatingRowStyle BackColor="White" />
</asp:Gridview>
</div>
<br />
<br />
<div style="margin-left: 200px">
</div>
</form>
</body>
</html>
***************************************VB.net Code behind****************************************
Imports System
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Data.DataRowView
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub cboOnCallGroup_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles
cboOncallGroup.SelectedIndexChanged
'Dim cboAssignedFK As DropDownList = DirectCast(sender, DropDownList)
Dim cboOnCallGroup As String = TryCast(sender, DropDownList).SelectedValue
Dim sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings
("DiscussSQLConnectionString").ConnectionString)
Dim sSql As System.Xml.Linq.XElement = <sql>
SELECT [fldOnCallGroup], [fldStartOnCall], [fldEndOnCall], [fldRank], [fldEmpName], [fldEmpWorkPhone],
[fldEmpHomePhone], [fldEmpHomeCellPhone], [fldEmpAltPhone], [fldOCPreferredContact]
FROM [tblOnCall]
WHERE ([fldOnCallGroup] = '<%= cboOnCallGroup %>')
ORDER BY [fldOnCallGroup], [fldEndOnCall], [fldRank] </sql>
Dim sqlCmd As New SqlCommand(sSql.Value, sqlConn)
Dim sqlRead As SqlDataReader
If sqlConn.State <> ConnectionState.Open Then
sqlConn.Open()
End If
sqlRead = sqlCmd.ExecuteReader()
sqlRead.Read()
sqlRead.Close()
sqlConn.Close()
End Sub
Function SendSQLCommand(ByVal tsSQLCmd As String, ByVal tsqlConn As SqlConnection) As Integer
Dim iRetVal As Integer = -1
Dim sqlCmd As New SqlCommand(tsSQLCmd, tsqlConn)
If tsqlConn.State <> ConnectionState.Open Then
tsqlConn.Open()
End If
Try
iRetVal = sqlCmd.ExecuteNonQuery()
Catch ex As Exception
Throw ex
End Try
Return iRetVal
End Function
Function SendSQLCommand2(ByVal tsSQLCmd As String, ByVal tsqlConn As SqlConnection) As Integer
Dim iRetVal As Integer = -1
Dim sqlCmd As New SqlCommand(tsSQLCmd, tsqlConn)
If tsqlConn.State <> ConnectionState.Open Then
tsqlConn.Open()
End If
Return iRetVal
End Function
Protected Sub GvOnCall_Update(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs)
Dim keyValue As Integer = e.Keys("fldOCID")
Dim strfldOnCallGroupOld As String = RTrim(LTrim(e.OldValues("fldOnCallGroup").ToString()))
Dim strfldOnCallGroupNew As String = RTrim(LTrim(e.NewValues("fldOnCallGroup").ToString()))
Dim strfldStartOnCallOld As String = RTrim(LTrim(e.OldValues("fldStartOnCall").ToString()))
Dim strfldStartOnCallNew As String = RTrim(LTrim(e.NewValues("fldStartOnCall").ToString()))
Dim strfldEndOnCallOld As String = RTrim(LTrim(e.OldValues("fldEndOnCall").ToString()))
Dim strfldEndOnCallNew As String = RTrim(LTrim(e.NewValues("fldEndOnCall").ToString()))
Dim strfldRankOld As Int32 = e.OldValues("fldRank")
Dim strfldRankNew As Int32 = e.NewValues("fldRank")
Dim strfldEmpNameOld As String = e.OldValues("fldEmpName")
Dim strfldEmpNameNew As String = e.NewValues("fldEmpName")
Dim strfldEmpWorkPhoneOld As String = e.OldValues("fldEmpWorkPhone")
Dim strfldEmpWorkPhoneNew As String = e.OldValues("fldEmpWorkPhone")
Dim strfldEmpHomePhoneOld As String = e.OldValues("fldEmpHomePhone")
Dim strfldEmpHomePhoneNew As String = e.OldValues("fldEmpHomePhone")
Dim strfldEmpHomeCellPhoneOld As String = e.OldValues("fldEmpHomeCellPhone")
Dim strfldEmpHomeCellPhoneNew As String = e.OldValues("fldEmpHomeCellPhone")
Dim strfldEmpAltPhoneOld As String = e.OldValues("fldEmpAltPhone")
Dim strfldEmpAltPhoneNew As String = e.OldValues("fldEmpAltPhone")
Dim strfldOnCallCellPhoneOld As String = e.OldValues("fldOnCallCellPhone")
Dim strfldOnCallCellPhoneNew As String = e.OldValues("fldOnCallCellPhone")
Dim fldOCPreferredContactOld As String = e.OldValues("fldOCPreferredContact")
Dim fldOCPreferredContactNew As String = e.OldValues("fldOCPreferredContact")
gvOnCall_Updated(keyValue, strfldOnCallGroupNew, strfldStartOnCallNew, strfldEndOnCallNew, strfldRankNew,
strfldEmpNameNew, _
strfldEmpWorkPhoneNew, strfldEmpHomePhoneNew, strfldEmpHomeCellPhoneNew, strfldEmpAltPhoneNew,
strfldOnCallCellPhoneNew, fldOCPreferredContactNew)
End Sub
Protected Sub gvOnCall_Updated(ByVal fldOCID As Integer, ByVal fldOnCallGroup As String, ByVal fldStartOnCall As
String, ByVal fldEndOnCall As String, _
ByVal fldRank As Integer, ByVal fldEmpName As String, ByVal fldEmpWorkPhone As String,
ByVal fldEmpHomePhone As String, _
ByVal fldEmpHomeCellPhone As String, ByVal fldEmpAltPhone As String, ByVal fldOnCallCellPhone As String,
ByVal fldOCPreferredContact As String)
Dim sqlConn As New SqlConnection(ConfigurationManager.ConnectionStrings
("DiscussSQLConnectionString").ConnectionString)
Dim sSql As XElement
sSql = <sql>
Update [tblOncall] SET [fldOnCallGroup] = '<%= fldOnCallGroup %>',
[fldStartOnCall] = '<%= [fldStartOnCall] %>',[fldEndOnCall] = '<%= [fldEndOnCall] %>',
[fldRank] = '<%= [fldRank] %>', [fldEmpName] = '<%= [fldEmpName] %>', [fldEmpWorkPhone] = '<%= [fldEmpWorkPhone] %>',
[fldEmpHomePhone] = '<%= [fldEmpHomePhone] %>', [fldEmpHomeCellPhone] = '<%= [fldEmpHomeCellPhone] %>',
[fldEmpAltPhone] = '<%= [fldEmpAltPhone] %>', [fldOCPreferredContact] = '<%= [fldOCPreferredContact] %>'
Where [fldOCID] = '<%= [fldOCID] %>' </sql>
'MsgBox(Err.Description, MsgBoxStyle.Critical, "SQL Error")
SendSQLCommand(sSql.Value, sqlConn)
sqlConn.Close()
End Sub
Protected Sub gvOnCallSchedule_RowCommand(ByVal sender As Object, ByVal e As
System.Web.UI.WebControls.CommandEventArgs) Handles gvOnCallSchedule.RowCommand
If e.CommandName = "Insert" AndAlso Page.IsValid Then
Try
dsOncallGroup.Insert()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "SQL Error")
'MsgBox("An error occured. Please ensure all required fields are entered and that the Application you
are trying to add doesn't already exist.", MsgBoxStyle.Critical, "Database Error")
Response.Redirect("Default.aspx")
End Try
Response.Redirect("Default.aspx")
End If
If e.CommandName = "Delete" Then
Try
dsOncallGroup.Delete()
Catch ex As Exception
MsgBox(Err.Description, MsgBoxStyle.Critical, "SQL Error")
'MsgBox("Application Deleted Successfully")
End Try
Response.Redirect("Default.aspx")
End If
End Sub
Protected Sub dsOnCallGroup_Inserting(ByVal sender As Object, ByVal e As SqlDataSourceCommandEventArgs) Handles
dsOncallGroup.Inserting
Dim strddlGroupName As New DropDownList
Dim txtStartOnCall As New TextBox
Dim txtEndOnCall As New TextBox
Dim txtRank As New TextBox
Dim strddlEmpName As New DropDownList
Dim txtEmpWorkPhone As New TextBox
Dim txtEmpHomePhone As New TextBox
Dim txtEmpHomeCellPhone As New TextBox
Dim txtEmpAltPhone As New TextBox
Dim txtOCPreferredContact As New TextBox
strddlGroupName = CType(gvOnCallSchedule.FooterRow.FindControl("ftrddlOCGroup"), DropDownList)
txtStartOnCall = CType(gvOnCallSchedule.FooterRow.FindControl("txtStartOnCallFtr"), TextBox)
txtEndOnCall = CType(gvOnCallSchedule.FooterRow.FindControl("txtEndOnCallFtr"), TextBox)
txtRank = CType(gvOnCallSchedule.FooterRow.FindControl("txtCallOrderFtr"), TextBox)
strddlEmpName = CType(gvOnCallSchedule.FooterRow.FindControl("ddlAnalystFtr"), DropDownList)
txtEmpWorkPhone = CType(gvOnCallSchedule.FooterRow.FindControl("txtWorkPhoneFtr"), TextBox)
txtEmpHomePhone = CType(gvOnCallSchedule.FooterRow.FindControl("txtHomePhoneFtr"), TextBox)
txtEmpHomeCellPhone = CType(gvOnCallSchedule.FooterRow.FindControl("txtHomeCellPhoneFtr"), TextBox)
txtEmpAltPhone = CType(gvOnCallSchedule.FooterRow.FindControl("txtAltPhoneFtr"), TextBox)
txtOCPreferredContact = CType(gvOnCallSchedule.FooterRow.FindControl("txtOCPreferredContactFtr"), TextBox)
e.Command.Parameters("@fldOnCallGroup").Value = strddlGroupName.Text
e.Command.Parameters("@fldStartOnCall").Value = txtStartOnCall.Text
e.Command.Parameters("@fldEndOnCall").Value = txtEndOnCall.Text
e.Command.Parameters("@fldRank").Value = txtRank.Text
e.Command.Parameters("@fldEmpName").Value = strddlEmpName.Text
e.Command.Parameters("@fldEmpWorkPhone").Value = txtEmpWorkPhone.Text
e.Command.Parameters("@fldEmpHomePhone").Value = txtEmpHomePhone.Text
e.Command.Parameters("@fldEmpHomeCellPhone").Value = txtEmpHomeCellPhone.Text
e.Command.Parameters("@fldEmpAltPhone").Value = txtEmpAltPhone.Text
e.Command.Parameters("@fldOCPreferredContact").Value = txtOCPreferredContact.Text
'MsgBox(strddlGroup.Text, MsgBoxStyle.Information)
End Sub
End Class