一个小女孩的苦恼。。 VB的DATAGRID1的高级应用问题。 girl girl..

[jsjkhanwei]

请问题能否在DATAGRID1中实现自定义列的列数和列的标题值？
小妹很急！！！

[dragonleon]

你的问题能不能详细点,什么意思?

[greenlea]

'请以后不要再打着我们"女"程序员的招牌
'不知道你要的是不是这个, 这是我以前写的程序中的一段
'其中TOTAL_COLUMN是定义的字段个数常数, 可以用columns.count代替
Public Sub ShowCaption()
call initCaption
Dim i As Integer
For i = 0 To TOTAL_COLUMN - 1
frmDataCtl.grdDataGrid.Columns(i).Caption = ColCaption(i)
Next i
End Sub

Private Sub initCaption()
ColCaption(0) = "模块代码"
ColCaption(1) = "项目ID"
ColCaption(2) = "父项目ID"
ColCaption(3) = "子项目ID"
ColCaption(4) = "邻项目ID"
ColCaption(5) = "层次编码"
ColCaption(6) = "层次号"
ColCaption(7) = "父项目编码"
ColCaption(8) = "项目编码"
ColCaption(9) = "成套标记"
ColCaption(10) = "零件数量"
......
End Sub

[jsjkhanwei]

您好！
感谢您的回复！
我的意思是我有一个表：YCL
字段是材料编号/名称/规格/型号/单位/单价/数量/金额；
我想自己定义一个DATAGRID1只用材料编号/名称/规格/单位/数量/金额；
然后将YCL表中的数量对应的写到DATAGRID1中去。
请帮忙！

[wjy88]

Option Explicit
'引用ADO对象
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Form_Load()
Call Initrst
End Sub
Private Sub Initrst()
conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Talent;Data Source=192.0.0.1" '此处填写你的连接字符串
With rst
.Source = "select 材料编号,名称,规格,单位,数量,金额 from YCL"
.ActiveConnection = conn
.CursorLocation = adUseClient
.LockType = adLockBatchOptimistic
.Open
End With
Set DataGrid1.DataSource = rst

End Sub

[Geoson]

在VB中,DATAGRID控件的COLUMNS(I)有VISIBLE属性,你可以任意调整每个列的可见状态,呵呵,灵活吧,加分吧,什么不懂,哎.............I faint,datagrid1.columns(i).visible=false
ok?