Try
Dim DR As SqlDataReader
DR = CL.SelectSqldr("SELECT * FROM LJWK001H WHERE uid=" & V_UID)
If DR.HasRows Then
While DR.Read
Me.TB_WKNO.Text = DR("wk_no").ToString
Me.TB_WKNAME.Text = DR("wk_name").ToString
Me.TB_RMK.Text = DR("rmk").ToString
Me.CB_WKENDAUTO.Checked = DR("wk_endauto")
Me.TB_WKENDAUTOMM.Text = DR("wk_endautomm").ToString
Me.CB_WKJG.Checked = DR("wk_jg")
Me.CB_TIMEC.Checked = DR("wk_timec")
Me.TB_TIMEC.Text = DR("wk_timecqty").ToString
Me.TB_WKYIELD.Text = DR("wk_yield").ToString
Me.CB_WKJG2.Checked = DR("wk_jg2")
Me.CB_WKSTATE.Checked = DR("wk_state")
Me.CB_WKQTYCONTROL.Checked = DR("wk_qtycontrol")
End While
End If
If DR.IsClosed = False Then DR.Close()
Catch ex As Exception
MessageBox.Show(Err.Description)
End Try
Me.TB_SCPRID.Text = ""
Me.TB_DPNO.Text = ""
Me.TB_ELNO.Text = ""
Me.TB_WKNO.Text = ""
If Me.TB_SCPRNO.Text <> "" Then
If MA008H.Isexists(" LJWK006H (NOLOCK) ", " sc_prno='" & Me.TB_SCPRNO.Text & "'") = False Then
MsgBox("工令单不存在"， MsgBoxStyle.Exclamation, "Message")
Me.TB_SCPRNO.Focus()
Me.TB_SCPRNO.SelectAll()
Exit Sub
Else
End If
End If
