程序取现有行的列信息出错解决思路(2) - vbScript当前位置:& &&&程序取现有行的列信息出错解决思路程序取现有行的列信息出错解决思路(2)&&网友分享于：&&浏览：7次&td&&div align=&left&&&input name=&text4& type=&text& class=&STYLE 7& id=&text4& value=&&%=rs(&制造商&)%&& size=&50&&&/div&&/td&&/tr&&tr bordercolor=&#FFFFFF&&&td&&div align=&center&&&span class=&STYLE 8&&产地：&/span&&/div&&/td&&td&&div align=&left&&&input name=&text5& type=&text& class=&STYLE 7& id=&text5& value=&&%=rs(&产地&)%&& size=&50&&&/div&&/td&&/tr&&tr bordercolor=&#FFFFFF&&&td&&div align=&center&&&span class=&STYLE 8&&价格：&/span&&/div&&/td&&td&&div align=&left&&&input name=&text6& type=&text& class=&STYLE 7& id=&text6& value=&&%=rs(&价格&)%&& size=&50&&&%&
&rs.movenext &loop &end if &set rs=nothing &set conn=nothing &%&&/div&&/td&&/tr&&tr&&td height=&38& colspan=&2& bordercolor=&#FFFFFF&&&div align=&center&& & &input name=&Submit& type=&submit& class=&STYLE 7& value=&提交& onClick=&window.open('gain.asp')&&&& &
&input name=&reset&
type=&reset&
class=&STYLE 7& value=&重填& onClick=&window.open('gainnew.asp')&&&/div&&/td&&/tr&&/table&&/form&&/div&&/body&&/html&请问：我的程序是在该行后点上修改按钮后，获取所在行“产品编号”的值，继而修改信息，请问我的ID为什么总是取空值啊！谢谢啦！------解决方案--------------------
你如果刚写的程序 数据库里面有数据吗 如果数据库里面就没有数据 当然是空的了 共&2&页:
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有君，已阅读到文档的结尾了呢~~
基于b/s结构的医药销售管理..
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
基于b/s结构的医药销售管理系统研究和实现硕士论文
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口产生m序列的matlab程序需要n=6的 103和147的m序列matlab程序,并且做自相关函数和互相关函数图,解释每段程序的意思.
function [m]=mxu(cn) cn=[1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 1]; %cn为移位寄存器,从左向右由小到大an=[0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1] ; %初始寄存器内容len=length(an); %所需的移位寄存器的长度L=2^len-1; %m序列的长度an=[zeros(1,len-1),1];%初始寄存器内容,zeros矩阵函数m=zeros(1,L)%提速m(1)=an(1); %m序列的第一个输出码元for i=2:Lan1(1:len-1)=an(2:len);%移位an1(len)=mod(sum(cn.*an),2);%寄存器与反馈的模2和an=an1;%移位后的寄存器m(i)=an(1);%新的寄存器输出end one_num=sum(m,2);zero_num=L-one_%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%画饼图num=[one_num zero_num];%输入数据name={'1的概率','0的概率'};%输入标签name1={'1的数量','0的数量'};%标题bili=num/L;percent=round(bili*0;%计算百分比percent=num2str(percent');%转化为字符型percent=cellstr(percent);%转化为字符串数组biaoti=num2str(num');%转化为字符型biaoti=cellstr(biaoti);%转化为字符串数组%在每个标签后加2个空格for i=1:length(name)name(i)={[name{i},blanks(2)]};endbfh=cellstr(repmat('%',length(num),1));%创建百分号字符串数组c=strcat(name,percent',bfh');bt=strcat(name1,biaoti');%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%饼图figure(1);pie(num,c)title(bt);%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%画波形图figure(2);%subplot(3,1,2)stairs(m)%对m序列绘图xlabel('n');ylabel('y');title('m序列');%%%%%%%%%%%%%%%%%%%%%%自相关函数由于阶数大所以运行时间久%求自相关函数%rho=zeros(1,L);%bwb=zeros(1,L)%xg=2*m-1; %变为双极性序列,1对应1,0对应-1%for j=0:L-1% bwb=[xg(1+j:L),xg(1:j)];% rho(j+1)=sum(m.*bwb);%end%j=-L+1:L-1;%调整自相关图像显示的横坐标范围%rho=[fliplr(rho(2:L)),rho];%figure(3)%plot(j,rho);%axis([-L L -0.1 1.2]);%设置横纵坐标范围%title('m序列的自相关函数');
为您推荐：
其他类似问题
扫描下载二维码查看: 1670|回复: 19
Excel VBa+ ACCESS 怎么样根据A列输入的信息，在B列C列自动显示应对字段的内容
阅读权限20
在线时间 小时
excel + ACCESS&&请问怎么样在A列输入对应数据库的编号，在B、C列自动显示对应字段的信息，不需要点击按扭
图片1.png (7.63 KB, 下载次数: 2)
11:04 上传
图片2.jpg (17.92 KB, 下载次数: 1)
11:04 上传
(26.08 KB, 下载次数: 21)
10:59 上传
点击文件名下载附件
阅读权限95
在线时间 小时
由于我的ACCESS是2003版的，所以说个思路，这个就要使用工作表事件，在Private Sub Worksheet_Change(ByVal Target As Range) 里编写代码，一种办法是使用ADO一次取出ACCESS数据库里数据并读入到字典中，然后根据A列的内容变化，查找字典将对应内容自动写入到B列和C列；另一种办法是当A列内容变化后，用ADO读取ACCESS数据库里内容，将查找到的内容写入到B列和C列。两种办法比较还是使用第一种办法比较简捷，速度可能也快一些。
阅读权限20
在线时间 小时
chxw68 发表于
由于我的ACCESS是2003版的，所以说个思路，这个就要使用工作表事件，在Private Sub Worksheet_Change(ByVal ...
老师 可以给个ACCESS是2003版的例子来看一下吗
你把数据库保存成2003版的发上来。&
阅读权限20
在线时间 小时
& & & & & & & &
chxw68 发表于
由于我的ACCESS是2003版的，所以说个思路，这个就要使用工作表事件，在Private Sub Worksheet_Change(ByVal ...
好的&&附件已增加 2003版数据库
(35.21 KB, 下载次数: 39)
11:50 上传
点击文件名下载附件
阅读权限95
在线时间 小时
我用的是WPS
(497.31 KB, 下载次数: 1)
12:02 上传
阅读权限95
在线时间 小时
& & & & & & & &
Public d As Object
Sub test()
&&Dim cnn As New Connection
&&Dim rs As New ADODB.Recordset
&&Dim mybook As String
&&Dim mysheet As String
&&Dim sql As String
&&Dim n As Integer
&&Set d = CreateObject(&scripting.dictionary&)
&&
&&mydata = ThisWorkbook.Path & &\数据库.mdb&
&&
&&strcnn = &Provider = microsoft.jet.oledb.4.0 ; data source=& & mydata & &;jet oledb:database password=123456;&
&&With cnn
& & .connectionstring = strcnn
& & .Open
&&End With
&&sql = &select * from 信息&
&&rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
&&arr = Application.Transpose(cnn.Execute(sql).GetRows())
&&For i = 1 To UBound(arr)
& & d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))
&&Next
&&rs.Close
&&cnn.Close
End Sub
复制代码
阅读权限95
在线时间 小时
Private Sub Worksheet_Change(ByVal Target As Range)
&&If Target.Count & 1 Then
& & Exit Sub
&&End If
&&If Target.Column = 1 Then
& & If d Is Nothing Then
& && &Call test
& & End If
& & If d.Exists(Target.Value) Then
& && &Target.Offset(0, 1).Resize(1, 2) = d(Target.Value)
& & End If
&&End If
End Sub
阅读权限95
在线时间 小时
注意:用chxw68 老师的办法,EXCELl文件要存为.XLSM类型的文件.
阅读权限95
在线时间 小时
详见附件。
12:10 上传
点击文件名下载附件
49.74 KB, 下载次数: 81
今天的分只剩1分了 呵呵
阅读权限95
在线时间 小时
本帖最后由 zhaogang1960 于
12:22 编辑
可只输入一个编号，也可以复制一列编号到A列，请参考：Private Sub Worksheet_Change(ByVal Target As Range)
& & If Target.Column & 1 Then Exit Sub
& & Dim cnn As Object, SQL$
& & On Error Resume Next
& & Set cnn = CreateObject(&ADODB.Connection&)
& & cnn.Open &Provider=Microsoft.ACE.OLEDB.12.0;Data Source=& & ThisWorkbook.Path & &\数据库.accdb&
& & If Target.Count = 1 Then '单个单元格输入
& && &&&SQL = &select 名称,单价 from 信息 where 编号=& & Target
& & Else '把一列编号复制到A列时
& && &&&SQL = &select 名称,单价 from [Excel 12.0;hdr=Database=& & ThisWorkbook.FullName & &;].[& & Me.Name & &$& & Target.Address(0, 0) & &] a left join 信息 b on a.f1=b.编号&
& && &&&Target.Offset(, 1).Resize(Target.Rows.Count, 2).ClearContents
& & End If
& & Target.Offset(, 1).CopyFromRecordset cnn.Execute(SQL)
& & cnn.Close
& & Set cnn = Nothing
End Sub
复制代码
太感谢老师了
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师大智慧软件个股价位右边的两列数字表示什么意思?_百度知道
大智慧软件个股价位右边的两列数字表示什么意思?
大智慧软件个股价位右边的两列数字表示什么意思?一列绿色的,另一列是淡蓝色的.QQ
你好,你说的是最左边的价格.我还有一点不明白.在价格列和淡蓝色列中间还有一列是一共是3列数字?哪列是卖盘?哪列是买盘,都是整数.有人说是买单.那右边的两列是什么意思,最左边的是价格列,有人说卖单我还是不懂:在时间列的右边还有三列数字,谢谢你们对我所提问的大智慧软件里的知识的回答.有时红色有时绿色
提问者采纳
就是说，在9。因为当前价格低于前收盘价，单位是手。淡蓝色的那列是每个价位对应的挂单数。你如果想以这个价格买入，所以是绿色的，也就是100股，如果高于则是红色的.70这个价位上有32600股的卖出挂单。比如从上数第三位绿色的9.70后面有淡蓝色的326绿色的那列是当前竞价的五档买入价和五档卖出价，下面的是买入价
为您推荐：
其他1条回答
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}