62,074
社区成员
发帖
与我相关
我的任务
分享
using System;
using System.Web.UI;
public partial class _Default : System.Web.UI.Page, IPostBackEventHandler
{
protected void Page_Load(object sender, EventArgs e)
{
Page.ClientScript.RegisterStartupScript(this.GetType(), "判断是否跳转", "if(confirm('是否跳转到abc.aspx?'))" +
Page.ClientScript.GetPostBackEventReference(this, "goto_abc") + ";", true);
}
#region IPostBackEventHandler 成员
public void RaisePostBackEvent(string eventArgument)
{
if (eventArgument == "goto_abc")
Response.Redirect("abc.aspx");
}
#endregion
}
Using sqlcon As New SqlConnection(ConfigurationManager.ConnectionStrings("ysjgdb").ToString())
Dim mytran As SqlTransaction
Dim sqlcom As New SqlCommand
sqlcom.Connection = sqlcon
Try
sqlcon.Open()
mytran = sqlcon.BeginTransaction()
'将事务对象赋值给sqlcom
sqlcom.Transaction = mytran
sqlcom.CommandText = "select sh from ys_yd WHERE YDID = '" & Session("YDID") & "'"
myReader = sqlcom.ExecuteReader()
If myReader.Read() Then
If myReader("sh") = 1 Then
MsgBox("已经审核,不能再修改!")
Return
End If
End If
myReader.Close()
'---------------------------------------------------------------------------------------------------
'运输_运费结算【YS_YD】
sqlcom.CommandText = "UPDATE YS_YD SET CYDW = '" & ddlcydw.SelectedItem.Text & "',CPH = '" & ddlCPH.SelectedItem.Text & "',ZYDW = '" & IIf(txtZYDW.Text.Trim() = "", 0, txtZYDW.Text.Trim()) & "'," & _
"ZRL = '" & IIf(txtZRL.Text.Trim() = "", 0, txtZRL.Text.Trim()) & "',DZ = '" & ddlDZ.Items(ddlDZ.SelectedIndex).Text & "'," & _
"YSLC = '" & IIf(lblYSLC.Text.Trim() = "", 0, lblYSLC.Text.Trim()) & "',YJ = '" & IIf(txtyj.Text.Trim() = "", 0, txtyj.Text.Trim()) & "'," & _
"DW = '" & ddldw.SelectedIndex - 1 & "',ZJE = '" & GridView1.FooterRow.Cells(4).Text & "',ZFJF = '" & GridView1.FooterRow.Cells(5).Text & "'," & _
"ZYZF = '" & GridView1.FooterRow.Cells(6).Text & "',CJRQ = '" & Now.Date & "',CJRMC = '" & Session("username") & "',YSFS = '" & ddlYSFS.SelectedValue & "' WHERE YDID = '" & Session("YDID") & "'"
sqlcom.ExecuteNonQuery()
'运输_运单明细【YS_YDMX】
'删除
sqlcom.CommandText = "DELETE YS_YDMX WHERE YDID = '" & Session("YDID") & "'"
sqlcom.ExecuteNonQuery()
'增加
dt = _GridData
For Each dr As DataRow In dt.Rows
If dr("客户名称") <> "" Then
sqlcom.CommandText = "insert into YS_YDMX(YDID,FHDH,KH,JE,FJF,YZF,BZ) VALUES(" & _
"'" & Session("ydid") & "','" & dr("发货单号") & "','" & dr("客户名称") & "','" & IIf(IsDBNull(dr("金额")), 0, dr("金额")) & "','" & IIf(IsDBNull(dr("附加费")), 0, dr("附加费")) & "'," & _
"'" & IIf(IsDBNull(dr("运杂费")), 0, dr("运杂费")) & "','" & dr("备注") & "')"
sqlcom.ExecuteNonQuery()
End If
Next
'----------------------------------------------------------------------------------------------------------
'提交事务
mytran.Commit()
Beep()
Response.Redirect("~/ysjg/ydgl.aspx")
Catch ex As SqlException
Beep()
Response.Write("<script language = javascript>alert('" & ex.Message.Trim() & "');</script>")
'会滚事务
mytran.Rollback()
Catch ex As Exception
Beep()
Response.Write("<script language = javascript>alert('" & ex.Message.Trim() & "');</script>")
'会滚事务
mytran.Rollback()
Finally
'结束的时候关闭连接
mytran.Dispose()
sqlcon.Close()
End Try
End Using