顶部banner
Logo 折叠
全网首发仿真工程师项目实训
下载app
返回旧版
首页 成长助手 小邻学院 社区 发现
职业认证 企业服务 行业会议

登录解锁更多功能

还没有账号?立即注册

技术邻
技术引领职场价值
电话
0571-86682823
商务合作
service@jishulink.com

VB6.0中datagrid控件问题? 21

浏览: 1763 回答: 2
在VB.NET中为DataGridView控件,将3个列数组的值分别添加到DataGridView对应的3列中代码如下: Dim j As Integer         For i = 0 To row_number             DataGridView1.Rows.Add(aa(i), bb(i), cc(i))         Next 但是VB6.0中没有DataGridView控件,只有 DataGrid控件,该如何实现相同的功能,即将3个列数组的值分别对应输入到DataGrid的3列中去?忘大佬指点,不胜感激!!!
vb

全部回答 (1)

默认 最新
段誉 2019年4月17日
VB6里,类似的控件叫 datagrid控件,需要通过菜单 [工程] -- [部件],勾选 Microdoft DataGrid Control 6.0 (SP6),完成添加到控件工具箱。 VB利用DataGrid控件显示数据库中数据信息,DataGrid在数据库数据显示的时候非常重要,它在用户操作舒适度及数据排列方面有独到之处,对于Vb数据库编程的用户来说,掌握DataGrid的使用是至关重要的事情。 参考实例如下: Public cnn As adodb.Connection Public rst As adodb.Recordset Public Sub setdb() Set cnn = New adodb.Connection cnn.Provider = "Microsoft.Jet.OLEDB.4.O" cnn.ConnectionString = "Data Source=" & App.Path & "\personal.mdb;" cnn.CursorLocation = adUseClient cnn.Open End Sub Private Sub Form_Load() On Error Resume Next Dim Strsql As String setdb Set DataGrid1.DataSource = Nothing Strsql = "select * from 备忘录 order by 编号" Set rst = cnn.Execute(Strsql) If Err Then MsgBox "读取数据失败" Exit Sub End If If rst.EOF Then Set DataGrid1.DataSource = Nothing Else Set DataGrid1.DataSource = rst End If End Sub
2019年4月17日
评论 1 点赞

相似问题

查看全部
  • 请问沥青混凝土细观SHPB劈裂不裂的原因? 暂无回答

    各位大佬们,求求你们帮帮我。 我用LsDyna做沥青混凝土细观冲击劈裂模拟,材料分为三部分,沥青胶浆、ITZ、骨料,前两者采用广义Maxwell模型,骨料采用HJC模型,都用ADD_EROSION的最大失效主应变控制单元失效删除。(具体的材料模型我将附在最后。) 做了两种冲击,一个是建立了杆件,用子弹撞击(速度控制),另一种是加了两个垫片,位移控制。变形裂缝情况如图1234,但是都没有贯穿裂缝。但

  • 残余应力or初始应力导入使模型恢复计算结果? 暂无回答

    残余应力or初始应力导入使模型恢复计算结果? 举一个仿真中遇到的例子进行问题说明。采用单元生死对一个薄板结构表面进行材料添加,在降温后整体结构将产生翘曲变形,随后杀死薄板另一面的单元使变形增大。 命令流1: finish /clear /prep7 !参数化 R=150 UP=775E-3 DOWN=775E-3 ODOWN=1E-3 OUP=1E-3 CONTACT=700E-3 A=DOWN+

  • 孔隙率公式22/23? : a / a 修改意见? line 24: value: undeclared variable 暂无回答

    #include "udf.h" #define X_L 180 // 采空区模型的长度 #define L 15 // 基本顶破碎长度 #define Y_L 120 // 工作面宽度 #define DP 0.15 // 平均粒径 #define T 30 // 倾角 #define TIMESTAMP "06301326" // 时间戳 // 绝对值函数 double my_abs(doub

推荐阅读

钢结构S1 ABAQUS经典金属弹塑性本构及模拟应用

钢结构S1 ABAQUS经典金属弹塑性本构及模拟应用

1点 1点
¥100
Apex For Aerospace Applications Introduction

Apex For Aerospace Applications Introduction

MSC Apex
免费
公路钢筋混凝土及预应力混凝土桥涵设计规范解决方案

公路钢筋混凝土及预应力混凝土桥涵设计规范解决方案

敦樸DUNPU 敦樸DUNPU
免费
慧加新规范解决方案详解之大跨连续弯梁桥精细化分析(7DOF)

慧加新规范解决方案详解之大跨连续弯梁桥精细化分析(7DOF)

敦樸DUNPU 敦樸DUNPU
免费
混合弯头的流体流动与传热

混合弯头的流体流动与传热

CFD流 CFD流
免费
Abaqus子程序安装教程 Abaqus6.14.2+VS2013+IVF2013(附带安装包)

Abaqus子程序安装教程 Abaqus6.14.2+VS2013+IVF2013(附带安装包)

二十 二十
免费
介观尺度的新一代核心LBM算法案例实操讲解突破传统CFD算法最大障碍网格划分

介观尺度的新一代核心LBM算法案例实操讲解突破传统CFD算法最大障碍网格划分

北京华盛扬科技 北京华盛扬科技
¥9.9
Msc Apex For Aerospace Applications Idealization a

Msc Apex For Aerospace Applications Idealization a

MSC Apex
免费
超大规模芯片电源完整性签核平台RedHawk-SC应用分享

超大规模芯片电源完整性签核平台RedHawk-SC应用分享

Ansys中国 Ansys中国
免费
Altair solidThinking认证教育合作计划-学生案例大赛即将开启!

Altair solidThinking认证教育合作计划-学生案例大赛即将开启!

ALTAIR ALTAIR
免费
结构仿真职业规划与学习路线

结构仿真职业规划与学习路线

技术邻直播 技术邻直播
免费
人工智能工程应用实例: 发动机排放数据学习及预测

人工智能工程应用实例: 发动机排放数据学习及预测

IDAJ中国 IDAJ中国
¥99
Altair二次开发答疑&典型案例解读

Altair二次开发答疑&典型案例解读

ALTAIR ALTAIR
¥10
MATLAB/ADAMS求解动力学

MATLAB/ADAMS求解动力学

伟_sss 伟_sss
¥25
基于OptiSturct的线性静力学分析和尺寸优化

基于OptiSturct的线性静力学分析和尺寸优化

Leon_sun Leon_sun
¥10
AQWA软件企业培训(3)  通过ANSYS-APDL建立半潜平台混合模型及混合模型的拖曳力线性化

AQWA软件企业培训(3) 通过ANSYS-APDL建立半潜平台混合模型及混合模型的拖曳力线性化

Nutshell Nutshell
¥30
TurboTides 2024R2全新版本发布会--智能算法驱动的全自动优化透平机械集成设计平台

TurboTides 2024R2全新版本发布会--智能算法驱动的全自动优化透平机械集成设计平台

TurboTides TurboTides
免费
UG编程零基础入门到精通以及优化刀路教程

UG编程零基础入门到精通以及优化刀路教程

UG编程 UG编程
免费
abaqus座椅滚轮拉脱力强度分析

abaqus座椅滚轮拉脱力强度分析

任总 任总
¥90
十分钟快速进行电子产品结构设计方案评估

十分钟快速进行电子产品结构设计方案评估

技术邻直播 技术邻直播
免费