[求助]关于下拉框on change问题

[复制链接]

渴望光明

电梯直达

1^#

发表于 2010-1-13 03:40:10 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

请教:我想实现在"客户简称"下拉框选择客户后,在"客户全名"自动显示出该客户的全名.

我想定义一个函数,在on change里.
如下:
sub display
  Dim rs
set rs=server.CreateObject("ADODB.recordset")
  rs.Open "select TXDZ from oa_crm_khxx where khbh=" & skhjc ,conn,1,1
if not rs.EOF then
  frmxx.khqm.value=rs(0) & ""
end if
rs.Close

end sub
但却发现set rs这段都不能执行,为什么?请指教

收藏0

使用道具举报

黑角残叶

2^#

发表于 2010-1-13 03:40:15 | 只看该作者

rs.Open "select TXDZ from oa_crm_khxx where khbh=" & skhjc ,conn,1,1
是不是应该改成这样
rs.Open "select TXDZ from oa_crm_khxx where khbh='" & skhjc&"'" ,conn,1,1

回复支持反对

使用道具举报

﹎想埝祢⿰

3^#

发表于 2010-1-13 03:40:18 | 只看该作者

onchange="submit()"

回复支持反对

使用道具举报

返回列表

GMT+8, 2024-11-18 04:32 , Processed in 0.089577 second(s), 10 queries , Gzip On, Memcache On.

		自动登录	找回密码
密码			注册