想格子中添加数据:
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
With DataGrid1
For i = 0 To .Columns.Count - 1 ’列
For j = 0 To .ApproxCount - 1 ’行
.Row = j’当前行
.Col = i’当前列
.Text = j & " * " & i’设置数据
Next
Next
End With
End Sub
帮定后
你在相应的cell里添加数据
并:
Private Sub dgAssetSpec_AfterColEdit(ByVal ColIndex As Integer)
Dim sAssetSpecDataGrid As String
sAssetSpecDataGrid = dgAssetSpec.Columns(dgAssetSpec.Col).Caption
Select Case sAssetSpecDataGrid
Case "参数"
Set rsInspection = New ADODB.Recordset
With rsInspection
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "SELECT * FROM tblassetSpec WHERE serialnumber ='" & adoAsset.Recordset.Fields("serialnumber").Value & "'"
Set .ActiveConnection = cnnCMMS
.Open
End With
Set dgAssetSpec.DataSource = rsInspection
。。。。。
End Select
datagrid的操作必须是在绑定后进行操作
如:
ssquery = "Select changetime as 变动年月,change as 变动情况,changereason as 变动原因,criterion as 何类标准 ,archivessalary as 档案工资,level1 as 级别,userName as 操作人 from tblSalarychangehistory where idcard='" & txtidcard.Text & "'"
Set rsFind = cnnCMMS.Execute(ssquery)
Set DataGrid1.DataSource = rsFind