Private Sub lnkB_tj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkB_tj.Click
UpdateQjglRec(Me.P_RecId)
End Sub
Sub UpdateQjglRec(ByVal intQjglid As Integer)
On Error GoTo errHandle
Dim xm, bm, qjlb As String
Dim qjts As Decimal
Dim qjkssj As DateTime
Dim qjyy As String
Dim strConn As String
Dim strSql As String
Dim Conn As System.data.SqlClient.SqlConnection
Dim cmd As SqlCommand