1。鼠标右击,选择“编辑”。再一次鼠标右击,选择“添加”即可
2。你可以采取如下办法
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
可以用代码添加:
Private Sub Form_Load()
Dim adoRecordset As New ADODB.Recordset
Dim i As Integer
For i = 0 To 5 '为Recordset六个字段,即为 DataGrid 添加六列
adoRecordset.Fields.Append "第 " & i + 1 & "列", adVariant, adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i
adoRecordset.Open
For j = 0 To 4
adoRecordset.AddNew '加五条记录,即为 DataGrid 添加五空行
Next j
Set DataGrid1.DataSource = adoRecordset '绑定 DataGrid 的数据源
adoRecordset.MoveFirst
End Sub