MsfleGrid.textmatrix(i,i)在Datagrid中有对应的函数吗

WangYang123 2003-08-20 08:40:31

MsfleGrid.textmatrix(i,i)在Datagrid中有对应的函数吗
目的，保存Datagrid中的数据到相应的Access数据表之中。

...全文

63 5 打赏收藏转发到动态举报

写回复

用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比较方便

.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.SetTextMatrix(0,i,"学生...

Private Sub Command1_Click() On Error Resume Next Dim wApp As New Application ... wNewTable.Cell(i + 1, j + 1).Range.Text = MSHFlexGrid1.TextMatrix(i, j) Next Next wApp.Visible = True End Sub

.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 .TextMatrix(.Rows - 1, i) = Format(mrc....

VB基础类

7,762

社区成员

197,608

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章