With Rs If .State = adStateOpen Then .Close End If .ActiveConnection = adoCN .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockBatchOptimistic .Source = "select hth as 合同号,qyrq as 签约日期,gbdq as 国别,khmc as 客户,spmc as 商品,sl as 数量,je as 金额,jgtk as 价格条款,fktj as 付款条件,jhrq as 交货日期,bh as 编号,xyzh as 信用证号,xkzq as 限开日期,czrq as 催证日期,dzrq as 到证日期,je1 as 金额,sl1 as 数量,zq as 装期,xq as 效期,fp as 分批,zc as 转船,tzrq as 退证日期,wth as 发票号,wtrq as 委托日期,sl2 as 数量,jhrq1 as 金额,cyrq as 出运日期,cm as 船名,zfrq as 支付日期,cgsmc as 船公司名称,zfje as 支付金额,jhrq2 as 结汇日期,jhje as 结汇金额,sdh as 水单号,hxdh as 核销单号,zfrq1 as 支付日期,zfje1 as 支付金额,hh as 函号 from cx_Htdj where staffcode='" & cXusercode & "'" .Open End With Set DataGrid1.DataSource = Rs
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = adoCN
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Source = "select hth as 合同号,qyrq as 签约日期,gbdq as 国别,khmc as 客户,spmc as 商品,sl as 数量,je as 金额,jgtk as 价格条款,fktj as 付款条件,jhrq as 交货日期,bh as 编号,xyzh as 信用证号,xkzq as 限开日期,czrq as 催证日期,dzrq as 到证日期,je1 as 金额,sl1 as 数量,zq as 装期,xq as 效期,fp as 分批,zc as 转船,tzrq as 退证日期,wth as 发票号,wtrq as 委托日期,sl2 as 数量,jhrq1 as 金额,cyrq as 出运日期,cm as 船名,zfrq as 支付日期,cgsmc as 船公司名称,zfje as 支付金额,jhrq2 as 结汇日期,jhje as 结汇金额,sdh as 水单号,hxdh as 核销单号,zfrq1 as 支付日期,zfje1 as 支付金额,hh as 函号 from cx_Htdj where staffcode='" & cXusercode & "'"
.Open
End With Set DataGrid1.DataSource = Rs