87,989
社区成员
发帖
与我相关
我的任务
分享
Dim sql As New SqlClass
If sql.SqlReader("select * from DrugsDetails where DrugCode='" & Request.QueryString("txt").ToString & "'").HasRows = True Then
Response.Write("<table style='width:300px'>")
Response.Write("<tr><td style='width:100px' align='right'>藥品編號:</td><td align='left' id='ypcode'>" & sql.sqlrd(0).ToString & "</td></tr>")
Response.Write("<tr><td style='width:100px' align='right'>藥品名稱:</td><td align='left' id='ypname'>" & sql.sqlrd(1).ToString & "</td></tr>")
Response.Write("<tr><td style='width:100px' align='right'>藥品數量:</td><td align='left'> <input id='ypnum' type='text' onkeyup ='ypjine(this.value)' /></td></tr>")
Response.Write("<tr><td style='width:100px' align='right'>藥品單價:</td><td align='left' id='ypdanjia'>" & sql.sqlrd(6).ToString & "</td></tr>")
Response.Write("<tr><td style='width:100px' align='right'>藥品單位:</td><td align='left' id='ypdanwei'>" & sql.sqlrd(5).ToString & "</td></tr>")
Response.Write("<tr><td style='width:100px' align='right'>總金額:</td><td align='left' id='ypzongjine'></td></tr>")
Response.Write("</table>")
End If
sql.SqlClose()