Private Sub txtTyousei_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtFurikomi.Leave, txtGenkin.Leave, _ txtNyukinbangou.Leave, txtNyukinbi.Leave, txtSousatu.Leave, txtSyokitte.Leave, txtTegata.Leave, txtTokuimei.Leave, txtTokuisaki.Leave, txtTyousei.Leave Try Select Case sender.GetType.Name Case "Number" DirectCast(sender, GrapeCity.Win.Input.Number).BackColor = Color.White Case "Edit" DirectCast(sender, GrapeCity.Win.Input.Edit).BackColor = Color.White Select Case DirectCast(sender, GrapeCity.Win.Input.Edit).Name Case "txtTokuisaki" If txtTokuisaki.Text <> "" And bTokuisaki = True Then Dim sSql As String = "select a.*,b.*,c.会社名,d.* from TblNyukin a left join TblTokuiM b on(a.得意先コード=b.得意先コード)" & _ " left join TblKaisyaM c on(a.会社コード=c.会社コード) left join TblKikanM d on(b.缔日=d.缔日) where " sSql = sSql & "a.得意先コード=" & CInt(txtTokuisaki.Text) & " and d.缔区分='SM'" txtTokuisaki.Text = String.Format("{0:0000}", CInt(txtTokuisaki.Text)) If clDbAcc.SqlCommand(sSql) Then If clDbAcc.DbReader.Read Then lblYuhin.Text = lsNull(clDbAcc.DbReader, "邮便番号") lblJyuusyo1.Text = lsNull(clDbAcc.DbReader, "住所1") lblJyuusyo2.Text = lsNull(clDbAcc.DbReader, "住所2") txtTokuimei.Text = lsNull(clDbAcc.DbReader, "得意先名") lblKaisyacode.Text = String.Format("{0:0000}", CInt(liNull(clDbAcc.DbReader, "会社コード"))) lblKaisyamei.Text = lsNull(clDbAcc.DbReader, "会社名") lblSimebi.Text = CStr(clDbAcc.DbReader("缔日")) lblTel.Text = lsNull(clDbAcc.DbReader, "TEL") lblFax.Text = lsNull(clDbAcc.DbReader, "FAX") lblSiharaibi.Text = lsNull(clDbAcc.DbReader, "支払日") lblSeikyuu.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求前月")) lblNyukin.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求入金")) lblSousatu.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求相杀")) lblTyousei.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求调整")) lblWurikosi.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求前月") - _ liNull(clDbAcc.DbReader, "请求入金") - liNull(clDbAcc.DbReader, "请求相杀") - liNull(clDbAcc.DbReader, "请求调整")) lblWuriage.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求当月内税") + liNull(clDbAcc.DbReader, "请求当月外税")) lblHenpin.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求返品内税") + liNull(clDbAcc.DbReader, "请求返品外税")) lblNebiki.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求値引")) lblSyouhigai.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求内税")) lblSyouhinai.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求外税")) lblTougetuseikyu.Text = String.Format("{0:###,###,###,###,###}", liNull(clDbAcc.DbReader, "请求前月") - _
2006年10月10日 00点10分
20