怎么用VSFLEXGRID 向空数据库中添加记录 - VB当前位置:& &&&怎么用VSFLEXGRID 向空数据库中添加记录怎么用VSFLEXGRID 向空数据库中添加记录&&网友分享于：&&浏览：206次如何用VSFLEXGRID 向空数据库中添加记录?如何用VSFLEXGRID & 向空数据库中添加记录?------解决方案--------------------首先向Doveday同志致敬:-)
使用adodc控件做数据库连接，不能为只读recordset
vsflexgrid.datamode=2
'新增按钮
Private Sub addNew_click()
Adodc1.Recordset.addNew
'保存按钮
Private Sub saveNew_click()
Adodc1.Recordset.UpdateBatch
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
一个具有十足耐力和不屈不挠精神的人,
一个有高度责任感以及惊人持久力的人。
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(1186)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_083',
blogTitle:'VSFlexGrid控件(一)',
blogAbstract:'VSFLEXgrid控件概况\r\n&[主要特点]&VSFlexGrid&Pro&7.0&是一功能强大的数据表格控件，高速、紧凑、灵活、轻便、无须依赖任何应用工具，支持数据化格式选项，能将表格列连接到图象列和墙纸属性上以提高应用工具的实现程度。如果应用工具无须数据库的支持，如果你的应用程序不需要数据库的支持,那么使用VSFlexGrid&Pro新的非绑定版本可以使应用程序的尺寸最小,而且发布应用程序时也不需要发布相应的ADO动态链接库.&VSFlexGrid&Pro&7.0可代替任何简单的列表框，浏览器，记事本等等，所以说它不仅仅只是一个表格控件。&\r\nFLexArray网格扩展控件&能够设置每个单元格的颜色和字体/能够对单元内容能进行',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:9,
publishTime:6,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'一个具有十足耐力和不屈不挠精神的人,\r\n一个有高度责任感以及惊人持久力的人。',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}VSFlexGrid控件属性和常用方法 四
VSFlexGrid控件属性和常用方法 四
发布时间： 12:55:05
编辑：www.fx114.net
本篇文章主要介绍了"VSFlexGrid控件属性和常用方法 四"，主要涉及到VSFlexGrid控件属性和常用方法 四方面的内容，对于VSFlexGrid控件属性和常用方法 四感兴趣的同学可以参考一下。
8,最下面的合计的那一行是怎么加的？？希望楼主指点一下，谢谢！Ansewr:合计行添加代码:'*****************************************'显示计算合计行.Rows = .Rows + 1& & &Dim r&, c&, tot!& & &For c = 1 To .Cols - 1& & && & tot = 0& & && & For r = 1 To .Rows - 2& & && && && tot = tot + .valueMatrix(r, c)& & && & Next& & && & .TextMatrix(r, c) = tot& & &Next'*****************,'在合计头列标明合计,合并单元格' & && && For I = 0 To 1& & && && && .TextMatrix(.Rows - 1, 0) = "合 & 计"' & && && && &.FixedAlignment(I) = 4' & && && Next& & && & .MergeCells = flexMergeFixedOnly& & && & .MergeRow(r) = True9,怎么样点击一条VSFlexgrid控件里的记录时下面的TEXT控件就显示相应的内容？Ansewr:text1=fg.TextMatrix(fg.RowSel, 2) & &'显示第二列信10,如果想把某一列设置成下拉匡中选择，只能写成 grid.colcombolist(1) = "a|b|c" 吗？能不能把下拉框中的数据和 recordset 或数组绑定。Answer:grid.colcombolist(1)＝grid.buildcombolist(rs!abc)11,我用的是VsFlexGrid 8如何把表格里面的Name变成我指定的文字,以前用的是DataGrid,实现的方法是DataGrid1.Columns.Caption="名字"现在学用VsFlexGrid,请高手指点.Answer:我来了,这段时间实在太忙了,,,没能及时回答大家的问题,,,,指定name可以这样表示:vfg.TextMatrix(0,1)="我的名字"12,如何让我选择的不是一个框,而是一整行,还有就是如何能把我选择的这一行的第一个框里的字添加到text1.text里.Answer:1,有一个属性可以让你的选择是一行的.SelectionMode=12,text1=fg.TextMatrix(fg.RowSel,1)在click事件里实现13,运行时如何调整调行或列宽度?Answer:AllowUserResizing=1 & '可调列AllowUserResizing=2 & '可调行AllowUserResizing=3 & '可调行和列最近很多朋友问我关于VSflexgrid的问题,,,由于我很忙,没能及时回答,请多谅解;特此,我找来了一些资料,供大家参考:VSFLEXgrid控件概况】[主要特点]VSFlexGrid Pro 7.0 是一功能强大的数据表格控件，高速、紧凑、灵活、轻便、无须依赖任何应用工具，支持数据化格式选项，能将表格列连接到图象列和墙纸属性上以提高应用工具的实现程度。如果应用工具无须数据库的支持，如果你的应用程序不需要数据库的支持,那么使用VSFlexGrid Pro新的非绑定版本可以使应用程序的尺寸最小,而且发布应用程序时也不需要发布相应的ADO动态链接库. VSFlexGrid Pro 7.0可代替任何简单的列表框，浏览器，记事本等等，所以说它不仅仅只是一个表格控件。FLexArray网格扩展控件能够设置每个单元格的颜色和字体/能够对单元内容能进行快速有效的排序/设置RowPosition和ColPosition属性，即可在运行状态移动行列的位置/使用MergeCell属性，无须改写代码即可将内容一致的单元格加以合并/能够在设计过程定义行列的页眉、宽度和位置，进行界面设计/改变缺省字体大小，能够自动调整与之相对应的单元格尺寸/支持2000行以上表格，单元格内容可达32k以上/能够进行行列的隐藏/能够进行字体的微调整（参考FontWidth属性）/具有多种多样的网格形式和色彩/支持图文混排/多种光标和被选择内容的显示方式等等。FlexString字符串处理控件能够设定检索字符串与置换字符串，在表格中找到与检索字符串相符的字符并将其置换为置换字符串中设置的字符/可以将检索字符串分成几个字段，给每个字段加入标签，使用标签代替字符串进行检索与置换/使用规范化表达式，规范化表达式是一个设定和匹配字符串的注释，类似于数学公式里的运算符。[功能]最新功能 & 提供了丰富的功能可以迅速创建灵活、功能强大的前端，无须用户额外支出。VSFlexGrid Pro 7.0 100%向下兼容VB环境下的MSFlexGrid，所以对于目前的版本升级非常容易。提供的新功能可显示、模块编辑、格式化、组织、概括、打印表格数据。数据可以按条件初始化，对于超出指定范围的数据会加强表示。可用户化输入网格和单个单元外观几乎所有的方面，并利用相似值合并邻近单元，使得表格更容易读取分析。支持ADO和OLE DBVSFlexGrid Pro支持ADO和OLE DB，支持统一的字符编码以及DAO数据的 存取，提供多重数据连接的选择。 ADO/OLEDB、DAO可连接到二维、三维 数组或其他VSFlexGrid控件，用户也可创建用户自己的数据源类。甚至可以在无界模式中使用表格，或将表格连接到变量数组及一用户可自己开发的数据 源。完整的打印功能可以保存、检索多张表格和打印格式。最新的PrintGrid方法可让用户打印单条语句，能够控制纸张定位、页边、文本字体，显示一对话框让用户选择设置打印机。同时也可控制页中断，添加表头，并在每一页上添加用户单元。支持分层数据可进行排序， 模块编辑，转化组合框和图表框和自动数据聚合。甚至可使用 VSFlexGrid Pro 分级显示数据。类似于树形控件，通过显示删除或扩张的结点用来表示含有附加数据的分支。分级显示树可在任一列中出现，甚至可出现 在异步分支上。分级显示树的外观可用NodeOpenPicture 和NodeClosedPicture 的属性用户化。更简单的版本如果用户的应用工具无须数据库的支持，VSFlexGrid Pro包含了表格控件更简单的版本。使用VSFlexGrid Pro新的非绑定版本可以使应用程序的尺寸最小, 发布应用程序时也不需要发布相应的ADO动态链接库.消除了DLL版本的问题。& 其他功能合并单元VSFlexGrid控件允许跨越多重行与列合并值相同的邻近单元。提高了数据在表格中显示，提高了数据的读取和分析。单元合并可用于创建合并的图表表头、 合并的数据视图，以及创建能将文本溢出到相邻列的表格。屏蔽模块输入模板可说明自动控件以及有效数据的输入，减少了数据输入的错误。模块语法类似于Microsoft MaskedEdit 控件和 Microsoft Access中的模块语法。Component One Vs-Flex Grid pro 7.0VB标准网络控件和文本控件的扩展版本：7.0标准价格：41,300.00 元使用权限：发布免费近期推出Videosoft公司一款全新的ActiveX控件---VSFlexGridPro7.0。 VSFlexGrid Pro 7.0 是一功能强大 的数据表格控件，高速、紧凑、灵活、轻便、无须依赖任何应用工具，支持数据化格式选项，能将表格列连接到图象列和墙纸属性上以提高应用工具的实现程度。如果应用工具无须数据库的支持，如果你的应用程序不需要数据库的支持,那么使用VSFlexGrid Pro新的非绑定版本可以使应用程序的尺寸最小,而且发布应用程序时也不需要发布相应的ADO动态链接库. VSFlexGrid Pro 7.0可代替任何简单的列表框，浏览器，记事本等等，所以说它不仅仅只是一个表格控件。[主要特点]FLexArray网格扩展控件能够设置每个单元格的颜色和字体/能够对单元内容能进行快速有效的排序/设置RowPosition和ColPosition属性，即可在运行状态移动行列的位置/使用MergeCell属性，无须改写代码即可将内容一致的单元格加以合并/能够在设计过程定义行列的页眉、宽度和位置，进行界面设计/改变缺省字体大小，能够自动调整与之相对应的单元格尺寸/支持2000行以上表格，单元格内容可达32k以上/能够进行行列的隐藏/能够进行字体的微调整（参考FontWidth属性）/具有多种多样的网格形式和色彩/支持图文混排/多种光标和被选择内容的显示方式等等FlexString字符串处理控件能够设定检索字符串与置换字符串，在表格中找到与检索字符串相符的字符并将其置换为置换字符串中设置的字符/可以将检索字符串分成几个字段，给每个字段加入标签，使用标签代替字符串进行检索与置换/使用规范化表达式，规范化表达式是一个设定和匹配字符串的注释，类似于数学公式里的运算符。[新特性]最新功能提供了丰富的功能可以迅速创建灵活、功能强大的前端，无须用户额外支出。VSFlexGrid Pro 7.0 100%向下兼容VB环境下的MSFlexGrid，所以对于目前的版本升级非常容易。提供的新功能可显示、模块编辑、格式化、组织、概括、打印表格数据。数据可以按条件初始化，对于超出指定范围的数据会加强表示。可用户化输入网格和单个单元外观几乎所有的方面，并利用相似值合并邻近单元，使得表格更容易读取分析。支持ADO和OLE DBVSFlexGrid Pro支持ADO和OLE DB，支持统一的字符编码以及DAO数据的 存取，提供多重数据连接的选择。 ADO/OLEDB、DAO可连接到二维、三维 数组或其他VSFlexGrid控件，用户也可创建用户自己的数据源类。甚至可以在无界模式中使用表格，或将表格连接到变量数组及一用户可自己开发的数据 源。完整的打印功能可以保存、检索多张表格和打印格式。最新的PrintGrid方法可让用户打印单条语句，能够控制纸张定位、页边、文本字体，显示一对话框让用户选择设置打印机。同时也可控制页中断，添加表头，并在每一页上添加用户单元。支持分层数据可进行排序， 模块编辑，转化组合框和图表框和自动数据聚合。甚至可使用 VSFlexGrid Pro 分级显示数据。类似于树形控件，通过显示删除或扩张的结点用来表示含有附加数据的分支。分级显示树可在任一列中出现，甚至可出现 在异步分支上。分级显示树的外观可用NodeOpenPicture 和NodeClosedPicture 的属性用户化。更简单的版本如果用户的应用工具无须数据库的支持，VSFlexGrid Pro包含了表格控件更简单的版本。使用VSFlexGrid Pro新的非绑定版本可以使应用程序的尺寸最小, 发布应用程序时也不需要发布相应的ADO动态链接库.消除了DLL版本的问题。其他功能合并单元VSFlexGrid控件允许跨越多重行与列合并值相同的邻近单元。提高了数据在表格中显示，提高了数据的读取和分析。单元合并可用于创建合并的图表表头、 合并的数据视图，以及创建能将文本溢出到相邻列的表格。屏蔽模块输入模板可说明自动控件以及有效数据的输入，减少了数据输入的错误。模块语法类似于Microsoft MaskedEdit 控件和 Microsoft Access中的模块语法[控件属性一览表]FlexString控件属性一览表Error失败时取得错误信息MatchCount取得与检索条件相一致的字符串数量MatchIndex设定与检索条件相一致的字符串的索引MatchLength取得与检索条件相一致的字符串长度MatchStart取得与检索条件相一致的字符串起始位置MatchString取得与检索条件相一致的字符串Pattern 设定检索条件Replace设定置换字符串SoundexText取得代表当前检索字符的声音代码TagCount取得与检索条件相一致的标签数量TagIndex在多个标签情况下，设定/取得与检索条件相一致的标签索引TagLength取得与检索条件相一致的标签长度TagStart取得与检索条件相一致的标签起始位置TagString取得与检索条件相一致的标签的字符串Text设定成为检索对象Version取得FlexString的版本号FlexString控件属性一览表AllowBigSelection设定行列头的选择AllowUserResizing设定行列大小的设定BackColor设定FlexArray所有表格的背景颜色BackColorBkg设定背景颜色BackColorFixed设定固定行/列的背景颜色BackColorSel设定选择单元的背景颜色CellAlignment设定单元里数据的排列方式CellBackColor设定单元或指定范围的背景颜色CellFontBold把单元或指定范围的字体设定为黑体字CellFontItalic把单元或指定范围的字体设定为斜体字CellFontName设定单元或指定范围的字体CellFontSize设定单元或指定范围字体的大小CellFontWidth设定单元或指定范围字体的宽度CellForeColor设定单元或指定范围字体的颜色CellHeight返回当前单元的高度CellLeft返回当前单元的左端位置CellTop返回当前单元的顶端位置CellWidth返回当前单元的宽度CellPicture指定显示在单元或指定范围中的图片CellPictureAlingment指定单元或范围中图片的显示位置CellTextStyle设定单元文本的显示形式Clip&设定/返回选择范围的内容Col设定/返回激活单元的列号ColAlingment( )设定/返回列的排列方式ColData( )设定/返回一个用户定义信息的长整形数据ColPosition( )移动列的位置Cols指定返回列的总数ColSel指定选择范ColWidth( )设定所指定列的宽度FillStyle指定是否改变当前单元或选择范围的内容或单元格式FixedCols设定固定列的总数FixedRows设定固定行的总数FocusRect设定选中单元周围的Focus Rectangle类型FontWidth设定字体的宽度ForeColorFixed设定固定单元的文本颜色ForeColorSel设定选择单元的文本颜色FormatString在设计过程中设定列宽、排列方式及固定的行/列GridColor指定网格线的颜色GridColorFixed设定固定网格线的颜色GridLines指定网格线的类型GridLinesFixed指定固定单元的网格线形式HighLight设定是否突出显示选中单元LeftCol指定显示在最左边的列MergeCells设定是否合并内容相同的单元格MergeCol( )设定指定列的单元合并MergeRow( )设定指定行的单元合并MouseCol设定鼠标指向的列号MouseRow设定鼠标指向的行号ReDraw设定是否刷新FlexArray控件Picture返回FlexArray控件的图片PictureType指定用Picture属性生成的图片类型Row设定/返回激活单元的行号RowData( )设定/返回一个用户定义信息的长整形数据RowHeight( )设定指定行的高度RowHeightMin设定行高的最小值RowPosition( )移动行的位置Rows指定行的总数RowSel指定行的选择范围SelectionMode设定行、列或单元的选择方式ScrollBars设定卷动轴的类型ScrollTrack设定卷动方式Sort按照选择的基准重新排列行的顺序Text设定/取得单元的文本TextArray( )设定/取得任意单元的文本TextMatrix( )设定/取得任意单元的文本TextStyle显示单元中文本的3D效果TextStyleFixed显示固定行/列中文本的3D效果TopRow指定显示在最上面的行VersionFlexArray控件的版本号WordWrap设定单元中的文本是否换行VSflexgrid的破解方法注册方法:编辑注册表HKEY_CLASSES_ROOT/Licenses/403E-11d3-9BD5-D2DC2DD96072听过vsview7.0没有？这是破解方法，只需要在注册表里建立三个键就可以.如下:REGEDIT4VSVIEW 7[HKEY_CLASSES_ROOT/Licenses/F4-11d3-9A1F-AE842F4A083B]@=""[HKEY_CLASSES_ROOT/Licenses/F403E-11d3-9BD5-D2DC2DD96072]@=""[HKEY_CLASSES_ROOT/Licenses/403E-11d3-9BD5-D2DC2DD96072]@=""在vsflexgrid中单元格输入完毕后，设置按回车键跳到同一行的下一个单元Private Sub VSFlexGrid1_AfterEdit(ByVal Row As Long, ByVal Col As Long)& & &With VSFlexGrid1& & && & If .Col = .Cols - 1 Then& & && && && '如果到了最右边的列就跳到下一行第一个可非固定列& & && && && .Row = Row + 1& & && && && .Col = .FixedCols& & && & Else& & && && && '向右移动一列& & && && && .Col = Col + 1& & && & End If& & &End WithEnd SubvsflexGrid 如何只能让某些特定列可编辑'修改前看到是否需要修改Private Sub Grid_BeforeEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)'On Error GoTo err& & &If UiI10101.valueInt & 2 Then & && && && '*************定义允许修改的状态，需修改& & && & Cancel = True& & && & Exit Sub& & &End If& & &If Grid.Col
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播不法有害信息！
二、互相尊重，对自己的言论和行为负责。
本文标题：
本页链接：求教！VB如何把这些记录导出保存在Excel表里？【vb吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：101,599贴子：
求教！VB如何把这些记录导出保存在Excel表里？收藏
试了几种方法都不行，求大师指教，谢谢！！！
达内vb,vb强化班,120天入门到精通,轻松就业,学习无忧!高中以上」vb,选达内」全球高端IT培训机构.
然后记录集导出
然后记录集导出，保存成文件即可。也可以用表格控件。
用reportx加上我的　comm.bas模块rs2rpt rs,rptx
把记录集写入表格然后 rpt.exportexcel
表格直接输出到excel上面用到的资源在本吧，我的贴子里都有，我就不复制网址了，怕小度抽风贴子名： 我的编程资源（主要是数据库、表格及报表相关），含个人编程笔记我是小白，所以用这种比较小白的方法，不然有三类方法，一种createobject(&excel..&)然后操作excel对象，一种连接excel数据源，还有一种是复制粘帖法，要求打开excel，复制的数据格式比较简单，列与列间是tab符分割的就知道这么多了。。。
表格用vsflexgrid控件，一句代码输出excel文件
可知道Access本身还有导出功能？我一般要导出为Excel的时候直接调用Access用Access本身的功能导出，（SQL也有），省好多事
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或关于VSFlexGrid控件单元格的下拉列表,该怎么处理 - VB当前位置:& &&&关于VSFlexGrid控件单元格的下拉列表,该怎么处理关于VSFlexGrid控件单元格的下拉列表,该怎么处理&&网友分享于：&&浏览：0次关于VSFlexGrid控件单元格的下拉列表本帖最后由 DreamPeter 于
13:36:02 编辑
Grid已经设置好列信息，并在Form_Load中对响应的列实现了ColComboList的设置。
但在加载数据时发现了一个奇怪的问题，如果是使用循环游标通过AddItem的方法加载数据，下拉列表一切正常。但通过使用Set&vsfgData.DataSource&=&rs的方式，数据加载后却无法得到下拉列表，双击单元格编辑时仅仅是把内容作为文本处理了。
原因：使用AddItem的方法，速度比较慢，1000条数据会加载好一会；使用DataSource的方式性能会有大幅提升，所以现在优化程序需要改为DataSource方式。
不知，有谁遇到同样问题，或者有解决方法的？以下是部分代码：
Private&Sub&Form_Load()
&&vsfgData.Rows&=&1
&&vsfgData.ColComboList(vsfgData.ColIndex("Status"))&=&getDicList("STATUS")
&&vsfgData.ColComboList(vsfgData.ColIndex("Type"))&=&getDicList("TYPE")
&&vsfgData.ColComboList(vsfgData.ColIndex("Usage"))&=&getDicList("USAGE")
Private&Sub&cmdLoad_Click()
&&SQL&=&"select&*&from&product&order&by&pid&desc"
&&Set&rs&=&New&ADODB.Recordset
&&rs.Open&SQL,&conn,&1,&1
&&Set&vsfgData.DataSource&=&rs
&&rs.close
&&set&rs&=&Nothing
以上getDicList函数生成格式为“AAA|BBB|CCC”的字符串，用以生成下拉列表内容。------解决思路----------------------一个表格中加载1000条数据,给谁看呢!
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 1234567891011 Copyright & &&版权所有