获取vb datagridd一页最多容纳多少行 vb

Datagrid 中有一个checkbox是全选用的,当datagrid的行数大于100时,在点击全选就很慢,怎么解决_J2EE真的不行了吗?该如何处理_vb作为中间件连接SQL2005和Oracle9i,该怎么解决__脚本百事通
稍等,加载中……
^_^请注意,有可能下面的2篇文章才是您想要的内容:
Datagrid 中有一个checkbox是全选用的,当datagrid的行数大于100时,在点击全选就很慢,怎么解决
J2EE真的不行了吗?该如何处理
vb作为中间件连接SQL2005和Oracle9i,该怎么解决
Datagrid 中有一个checkbox是全选用的,当datagrid的行数大于100时,在点击全选就很慢,怎么解决
Datagrid 中有一个checkbox是全选用的,当datagrid的行数大于100时,在点击全选就很慢,如何解决?Datagrid
中有一个checkbox是全选用的,当datagrid的行数大于100时,在点击全选就很慢,如何解决?
函数是这样写的:
SelectAll(ctr)
//debugger
document.getElementById( "dgdMaterialRequest ");
if(i.toString().length==1)
j= 'ctl0 '+(i);
j= 'ctl '+(i);
document.getElementById( "dgdMaterialRequest_ "+j+ "_cbIsSelected ");
drawQuantity=document.getElementById( "dgdMaterialRequest_ "+j+ "_txtDrawQuantity ");
chk.disabled
chk.checked=ctr.
drawQuantity.value= " ";
}------解决方案--------------------代码不是太全,很难调试,正常情况下100个不算多,应该很快的。你上面的代码慢应该主要出在DOM这个上面,最好找下有没有其他规律,其他地方的程序也可以做些细小的优化
------解决方案--------------------杀了我也不用dataGrid 用repeater什么事都没了
dataGrid害死不少初学者
------解决方案--------------------建议生成时使得所有checkbox的name属性一致value=ctl01 ctl02... ctlNN
这样post回来的是选中checkbox的值的数组
ctl01 , ctl02 , ctl04 , ctl05 , ctl08
其实用dataGrid的模版列也应该是相同的name属性啊?
J2EE真的不行了吗?该如何处理
J2EE真的不行了吗?现在J2EE除了用SSH做网站,还能做什么,而且现在懂SSH的很多哦,我该转行吗?andriod,oracle,还是BI?纠结。。。鸡肋。。。
------解决方案--------------------何苦要纠结这个,
做自己能做的,喜欢的,------解决方案--------------------学什么技术不重要,重要的是要研究的深------解决方案--------------------只有人不行,技术没有不行的------解决方案--------------------觉得SSH没意思,就研究研究这方面吧:/------解决方案--------------------如果你只是用框架或组件写些低层次代码,那确实没有前途。
如果你能够活用基本理论,下工夫在架构上,什么语言都不重要。------解决方案--------------------J2EE和SSH并不能划等号,SSH只是J2EE的一个轻量级解决方案罢了。
J2EE包括一整套的企业设计模式、业界巨头公司的统一解决标准及相应针对于软硬件的支持,.net、php的现行设计思想都在往J2EE的企业级设计上靠拢,.net的网络解决方案企业级设计才刚刚起步,PHP更是在转型的隐痛期。
现在电信、金融、电子商务、证券等大型应用系统的首选平台便是J2EE,网站开发根本不是它所能发挥长处的地方。------解决方案--------------------如果是学习技术、语法本身,换什么语言都没前途,设计模式、算法等等这些涉及到设计、思想内容的东西才是程序的精髓!------解决方案--------------------lz太浮躁了。。。。。。这样做不好事地------解决方案--------------------事物皆无好坏,只因观者有心------解决方案--------------------晕
是不是太那个浮躁了
vb作为中间件连接SQL2005和Oracle9i,该怎么解决
vb作为中间件连接SQL2005和Oracle9ivb作为中间件连接SQL2005和Oracle9i。在vb中写了很多插入语句,但是过程太大不能执行,有什么好办法解决的类似这样的表插入(很多!!!):Dim templet_id00001 As IntegerDim analyze_name00002
As DoubleDim analyze_type00003
As IntegerDim dataset_id00004 As IntegerDim x_axisflield00005
As DoubleDim y_axisflield00006
As DoubleDim creator00007
As DoubleDim creat_time00008 As StringDim remark00009 As DoubleDim change_stamp00010
As Stringv5_fphlDbrs.Open "select * from Analyze_Templet
", v5_fphlDbcnIf Not v5_fphlDbrs.EOF Thentemplet_id00001 = v5_fphlDbrs.Fields("templet_id")analyze_name00002 = v5_fphlDbrs.Fields("analyze_name")analyze_type00003 = v5_fphlDbrs.Fields("analyze_type")dataset_id00004 = v5_fphlDbrs.Fields("dataset_id")x_axisflield00005 = v5_fphlDbrs.Fields("x_axisflield")y_axisflield00006 = v5_fphlDbrs.Fields("y_axisflield")creator00007 = v5_fphlDbrs.Fields("creator")creat_time00008 = v5_fphlDbrs.Fields("creat_time")remark00009 = v5_fphlDbrs.Fields("remark")change_stamp00010 = v5_fphlDbrs.Fields("change_stamp")creat_time00008 = Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(Hour(Time()), "00") & ":" & Format(Minute(Time()), "00")change_stamp00010 = Format(Year(Date), "0000") & Format(Month(Date), "00") & Format(Day(Date), "00") & Format(Hour(Time()), "00") & ":" & Format(Minute(Time()), "00")
End Ifv5_fphlDbrs.ClosefphlDbrs.ActiveConnection = fphlDbcnfphlDbrs.CursorType = adOpenKeysetfphlDbrs.LockType = adLockOptimisticfphlDbrs.CursorLocation = adUseServerfphlDbrs.Open "Insert Into Analyze_Templet1 values(‘" & templet_id00001 & "’,
‘" & analyze_name00002 & "’,
‘" & analyze_type00003 & "’,
‘" & dataset_id00004 & "’,
‘" & x_axisflield00005 & "’,
‘" & y_axisflield00006 & "’,
‘" & creator00007 & "’,
‘" & creat_time00008 & "’,
‘" & remark00009 & "’,
‘" & change_stamp00010 & "’)", fphlDbcn------解决方案--------------------我一般是在数据库层面解决,MSSQL和ORACEL之间的数据熔接很方便,你可查查这方面的资料。开发个中间件,如果单纯的是为了双方的数据交互,有点过于牵强。
------解决方案--------------------呵呵,win8自带的运行库 msvbvm60.dll 版本6.0.98.15
修改时间:------解决方案--------------------
直接在一个数据库映射另一个数据库,这样就象访问一个数据库一样。
如果您喜欢IT行业或者对IT行业感兴趣,想开拓技术视野,欢迎加入本站官方QQ群:,在群里认识新朋友和交流技术^_^
本站联系邮箱:由于编程需要统计DATAGRID的某列的值,能否提供原代码,谢谢大家
回复讨论(解决方案)
DataGrid的数据是从记录集来的,在查询里统计:
rs1.Open&&select&*&from&表1&&,cn,3,2
Set&DataGrid1.DataSource=rs1
rs2.Open&&select&sum(你要统计的列名)&from&表1&)&,cn,1,1
MsgBox&&统计结果为:&&&&rs2(0)
或者用笨方法一个一个地加起来:
DataGrid1.Row=2&'统计第3列
for&i=&0&to&rs.RecordCount-1
&&&DataGrid1.Row=i
&&&ret=ret+val(DataGrid1.Text)
MsgBox&&统计结果为:&&&&ret
或者用笨方法一个一个地加起来:
DataGrid1.Row=2&'统计第3列
for&i=&0&to&rs.RecordCount-1
&&&DataGrid1.Row=i&&&【这句好像不对吧,这样循环是得到从第1列的值】
&&&ret=ret+val(DataGrid1.Text)
MsgBox&&统计结果为:&&&&ret
请指教,谢谢
不好意思,第一句写错了,改为:
DataGrid1.Col=2&'统计第3列
Private&Sub&Cmd_Total_Click()
Dim&ret&As&Integer
Dim&Ret_1&As&Integer
If&QzYn.Value&=&1&Then
&&&&DataGrid1.Col&=&15&【首先判断第16列的值是否=1,如果是则统计第3列的值,如果不是则跳过去,好像达不到我想要的结果】
&&&&For&i&=&1&To&Ado1.Recordset.RecordCount
&&&&&&&&DataGrid1.Row&=&i
&&&&&&&&Ret_1&=&Val(DataGrid1.Text)
&&&&&&&&If&Ret_1&&1&&Then
&&&&&&&&&&&&DataGrid1.Col&=&4&'统计第3列
&&&&&&&&&&&&'MsgBox&&总计&&&&Str(Ado1.Recordset.RecordCount)
&&&&&&&&&&&&DataGrid1.Row&=&i
&&&&&&&&&&&&ret&=&ret&+&Val(DataGrid1.Text)
&&&&&&&&End&If
ElseIf&QzYn.Value&=&0&Then
&&&&DataGrid1.Col&=&4
&&&&For&i&=&1&To&Ado1.Recordset.RecordCount
&&&&&&&&&&&&DataGrid1.Row&=&i
&&&&&&&&&&&&ret&=&ret&+&Val(DataGrid1.Text)
MsgBox&&统计数量为:【&&&&Trim(Str(ret))&&&&】台&
请指教,谢谢
首先判断第16列的值是否=1,如果是则统计第3列的值,如果不是则跳过去
&&&&If&Ret_1&&1&&Then&&&&'条件应该是Ret_1=1
&&&&&&&&DataGrid1.Col&=&4&&&'统计第3列(其实这里是统计第5列的值)
&&&&&&&&'MsgBox&&总计&&&&Str(Ado1.Recordset.RecordCount)
&&&&&&&&DataGrid1.Row&=&i&&&&'这句没起什么作用,可以去掉
&&&&&&&&ret&=&ret&+&Val(DataGrid1.Text)
&&&&End&If
---------------------------------
你的条件写反了,而且你写明要统计第3列的值,而代码却写成了统计第5列的值,另外,两个for也有点问题,应该是For&i&=&1&To&Ado1.Recordset.RecordCount-1
Private&Sub&Cmd_Total_Click()
Dim&ret&As&Integer
Dim&Ret_1&As&Integer
If&QzYn.Value&=&1&Then
&&&&For&i&=&1&To&Ado1.Recordset.RecordCount
&&&&&&&&DataGrid1.Col&=&15【哈哈,是这里放错地方了,不过怎么样都谢谢了】
&&&&&&&&DataGrid1.Row&=&i
&&&&&&&&Ret_1&=&Val(DataGrid1.Text)
&&&&&&&&If&Val(DataGrid1.Text)&&&&1&Then
&&&&&&&&&&&&DataGrid1.Col&=&4&'统计第3列
&&&&&&&&&&&&&ret&=&ret&+&Val(DataGrid1.Text)
&&&&&&&End&If
ElseIf&QzYn.Value&=&0&Then
&&&&DataGrid1.Col&=&4
&&&&For&i&=&1&To&Ado1.Recordset.RecordCount
&&&&&&&&&&&&&ret&=&ret&+&Val(DataGrid1.Text)
MsgBox&&统计数量为:【&&&&Trim(Str(ret))&&&&】台&vb 中如何多次查询数据库中数据在datagrid中显示vb能不能实现以下功能: &
1.通过数据库 表中的字段查询一条记录 并在datagrid中显示, &
2.然后再通过另一字段查询该表中的另一条记录,同样在该datagrid中显示,但要保留前一条记录; &
3.最后对查询到得这多条记录同时修改。 &
请高手指教。。。。。。。。。。。。
看看我的这个资源可能对你有用:VB编写的 DBGrid 控件及使用范例
再建立一个无连接记录集,把你每次查询到的记录追加到无连接记录集,然后用无连接记录集绑定datagridADODB建立无连接RecordSet的方法
lsksoftwartevb中如何获取datagrid选中行的值?_编程_英汉互译
vb中如何获取datagrid选中行的值?
来源:|人气:943 ℃|类别:|时间: 00:13:24
问题:vb中如何获取datagrid选中行的值?
我要的效果是我选中某行,然后双击,获得这行其中一个单元格的值先说明datagrid的一些属性,说清楚了,自然解决方法就明了了。说明:Bookmark:设置或返回当前的行标签号DataGrid1.Columns("ProductID").CellText(DataGrid1.Bookmark)返回当前行中字段为‘ProductID’的值。在DataGrid被连接到一个数据库后,可能想要监视用户单击了哪一个单元。可以使用RowColChange事件——而不是Click事件。如;PrivateSubDataGrid1_RowColChange(LastRowAsVariant,ByValLastColAsInteger)Debug.Print_DataGrid1.Columns("ProductID").CellValue(DataGrid1.Bookmark)EndSub通过这个方法就能获得用户点击的行的某个值。利用一下方法可以控制datagrid每列的宽度;DimcAsColumnSetc=DataGrid1.Columns.Add(DataGrid1.Columns.Count)Withc.Visible=True.Width=1000.Caption="我的新列".DataField=Adodc1.Recordset.Fields("ProductName").Name.Alignment=dbgRightEndWith下面的代码将删除被单击的列。PrivateSubDataGrid1_HeadClick(ByValColIndexAsInteger)DataGrid1.Columns.RemoveColIndexEndSub 热心网友
查询datagriddatagrid隐藏一列2.0中关于datagrid使用checkbox选择行查询datagrid如何在 datagrid view里面显示数据库二进制存储的图片datagrid在mvc中的运用03-选择单行或多行
||||点击排行

我要回帖

更多关于 容纳人数最多的足球场 的文章

 

随机推荐