Dim dm1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim dm2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim dtm1 As Date = dm1.Value
Dim dtm2 As Date = dm2.Value
Dim sql As String = "Se1ect top 50 b.vak13 As 收费时间, c.vaa03 As 门诊号, c.vaa05 As 病人姓名, a.项目名称,规格,单位,收入费别, " & _
"原单价,实收单价,数量,减免优惠,折扣优惠,应收金额 as 全额,实收金额 as 应收金额,开单科室,开单医生,执行科室 from {UF_VAJ_FULL} a join {V_VAK_FULL} b on a.vak01 = b.vak01 " & _
"left join vaa1 c on b.vaa01 = c.vaa01" & _
"And vak13 >= '" & dtm1 & "'And vak13 <= '" & dtm2 & "'"
Tables("窗口1_Table1").Fill( sql ,"ybcs",True)
加好友 
发短信
Post By：2022/3/29 21:52:00 [只看该作者]
