В настоящее время для нашей системы управления компанией, когда есть ошибка для отметки времени в «MarketTrial» перед массовым производством.
В разделе «Сведения о MarketTrial» пользователь может редактировать размер, наборы, разделы перед отправкой формы ввода с помощью кнопки «Вставить». Я также хотел бы добавить, что при выборе размера это также автоматически изменяет «конечную дату»
. После выбора кнопки ссылки «Вставить» эта дата затем ставится с меткой «Подробности MartketTrial», однако мои намерениязаключается в том, что эта дата не должна иметь отметки времени до тех пор, пока не будет выбрано «Отправить для массы» после того, как сведения о рыночных испытаниях и другие поля ввода данных заполнены во всей форме.
Ниже приведен код для ссылки «Вставить» Кнопка
Protected Sub Insert_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim strEDate As String
With odMarketTrial
.InsertParameters("Row").DefaultValue = CType(gvmtrial.FooterRow.FindControl("lblRowInsert"), Label).Text
.InsertParameters("Size").DefaultValue = CType(gvmtrial.FooterRow.FindControl("txtSizeEditF"), TextBox).Text
.InsertParameters("Sets").DefaultValue = CType(gvmtrial.FooterRow.FindControl("ddSetsInsert"), DropDownList).SelectedValue
.InsertParameters("Sections").DefaultValue = CType(gvmtrial.FooterRow.FindControl("ddSectionsInsert"), DropDownList).SelectedValue
.InsertParameters("Type").DefaultValue = CType(gvmtrial.FooterRow.FindControl("ddType"), DropDownList).SelectedValue
.InsertParameters("EndDate").DefaultValue = CType(gvmtrial.FooterRow.FindControl("txtEndDateInsert"), TextBox).Text
strEDate = CType(gvmtrial.FooterRow.FindControl("txtEndDateInsert"), TextBox).Text
If strEDate = "" Or Not IsDate(strEDate ) Or (DateTime.Compare(Now, strEDate ) > 0) Then
'If CType(gvmtrial.FooterRow.FindControl("txtEndDateInsert"), TextBox).Text = "" Then
lblRequestedDateError.Visible = True
lblRequestedDateError.ForeColor = Drawing.Color.Red
'ElseIf isValidDate(CType(gvmtrial.FooterRow.FindControl("txtEndDateInsert"), TextBox).Text) Then
Else
lblendDateError.Visible = False
lblendDateError.ForeColor = Drawing.Color.Red
End If
If lblDRFStatus.Text = "" Then
.InsertParameters("LBSStatus").DefaultValue = "0 -"
Else
.InsertParameters("LBSStatus").DefaultValue = lblLBSStatus.Text
End If
.Insert()
End With
Session.Add("Redirect", "LBS")
LBS_Action()
End Sub
Итак, я хотел бы знать, как я могу перенести запись данных для «EndDate» из «Insert» в «Submit for Mass», поскольку до сих пор моим главным препятствием было то, что после нажатия «Insert» на данныене будет отправлено, поскольку в 'txtEndDateInsert' нет даты