请教怎么将值手工赋给datagrid中的一列?? 用datagrid的那个属性赋值??比如现在是空的 想添加第一行,第一列的值为文本:hello 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 需要建立无源记录集,然后跟DataGrid绑定,给记录集对象赋值hello,DataGrid就能显示hello了 给你些代码参考:需要引用ADODim rs As New RecordsetPrivate Sub Form_Load() rs.Fields.Append "a", adVariant, adFldMayBeNull + adFldIsNullable + adFldUpdatable rs.Fields.Append "b", adBSTR, , adFldMayBeNull + adFldIsNullable + adFldUpdatable rs.Fields.Append "c", adBSTR, , adFldMayBeNull + adFldIsNullable + adFldUpdatable rs.Fields.Append "d", adBSTR, , adFldMayBeNull + adFldIsNullable + adFldUpdatableEnd SubPrivate Sub Command1_Click() Dim i% rs.Open For i = 1 To 4 rs.AddNew rs(0) = "1" rs(1) = "2" rs(2) = "3" rs(3) = "4" Next rs.UpdateBatch Set DataGrid1.DataSource = rsEnd Sub 数组M(i) 相加 在TXT文件中删除第一行,再将字符串插入到第一行,怎么处理,求助. 时间相减 word中如何做浮动窗口或按钮等? 最近很少来CSDN了更别说VB版了散分 哪位有VB的图像压缩控件啊,急用!!! [求助]关于DESKBAND任务栏中的工具栏 我[playyuer]的论坛注册用户快到 100 了,希望大家[论坛支柱]继续捧场 ... 关于一些小问题,请指教! 高手请教个问题:VB可以更改窗口的图表吗? 如何获得COOKIES文件夹目录 如何使用安装MSDataShape
Private Sub Form_Load()
rs.Fields.Append "a", adVariant, adFldMayBeNull + adFldIsNullable + adFldUpdatable
rs.Fields.Append "b", adBSTR, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
rs.Fields.Append "c", adBSTR, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
rs.Fields.Append "d", adBSTR, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
End SubPrivate Sub Command1_Click()
Dim i%
rs.Open
For i = 1 To 4
rs.AddNew
rs(0) = "1"
rs(1) = "2"
rs(2) = "3"
rs(3) = "4"
Next
rs.UpdateBatch
Set DataGrid1.DataSource = rs
End Sub