社区
VB基础类
帖子详情
MsfleGrid.textmatrix(i,i)在Datagrid中有对应的函数吗
WangYang123
2003-08-20 08:40:31
MsfleGrid.textmatrix(i,i)在Datagrid中有对应的函数吗
目的,保存Datagrid中的数据到相应的Access数据表之中。
...全文
66
5
打赏
收藏
MsfleGrid.textmatrix(i,i)在Datagrid中有对应的函数吗
MsfleGrid.textmatrix(i,i)在Datagrid中有对应的函数吗 目的,保存Datagrid中的数据到相应的Access数据表之中。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
WangYang123
2003-08-20
打赏
举报
回复
Rs.CursorLocation = adUseClient
CN,
adOpenDynamic,
adLockBatchOptimistic
请解释具体含义,谢谢
didishu0807
2003-08-20
打赏
举报
回复
Rs.CursorLocation = adUseClient
Rs.Open "select * from table1", cnn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs
of123
2003-08-20
打赏
举报
回复
Datagrid是针对数据绑定设计的,所以它的操作面向记录集,而不是MsfleGrid的Cell。
例如Datagrid没有Rows属性来确定行数,也不能通过一个绝对行序号移动到一条记录。它的行属性都是针对当前可见行的。
所以从MsfleGrid改用Datagrid,要转换思维方式。
lihonggen0
2003-08-20
打赏
举报
回复
你也可以象这样赋值:
DataGrid1.Row = 2
DataGrid1.Columns(1).Text="sds"
lihonggen0
2003-08-20
打赏
举报
回复
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs
直接操作Rs比较方便
NI和vsFlex
Grid
控件.part2
.Cell(flexcpBackColor, i, 1, i, 4) = RGB(i * 100, i * 100, i * 100) Next End With VC代码: m_vsgshow.SetCols(5); m_vsgshow.SetRows(4); for (int i=0;i;i++) { m_vsgshow.Set
Text
Matrix
(0,i,"学生...
NI和vsFlex
Grid
控件.part1
.Cell(flexcpBackColor, i, 1, i, 4) = RGB(i * 100, i * 100, i * 100) Next End With VC代码: m_vsgshow.SetCols(5); m_vsgshow.SetRows(4); for (int i=0;i;i++) { m_vsgshow.Set
Text
Matrix
(0,i,"学生...
NI和vsFlex
Grid
控件.part3.
.Cell(flexcpBackColor, i, 1, i, 4) = RGB(i * 100, i * 100, i * 100) Next End With VC代码: m_vsgshow.SetCols(5); m_vsgshow.SetRows(4); for (int i=0;i;i++) { m_vsgshow.Set
Text
Matrix
(0,i,"学生...
VB +access 把MSHFlex
Grid
中数据输出到word
Private Sub Command1_Click() On Error Resume Next Dim wApp As New Application ... wNewTable.Cell(i + 1, j + 1).Range.
Text
= MSHFlex
Grid
1.
Text
Matrix
(i, j) Next Next wApp.Visible = True End Sub
Option Explicit
.Rows = .Rows + 1 For i = 1 To mrc.Fields.Count If Not IsNull(Trim(mrc.Fields(i - 1))) Then Select Case mrc.Fields(i - 1).Type Case adDBDate .
Text
Matrix
(.Rows - 1, i) = Format(mrc....
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章