Nothing,我已看了控件大全,我也写了一段代码
Private Sub DataGrid1_Click()
Dim i As Integer
For i = 0 To 4
DataGrid1.Col = i
Form1.Label1(i).Caption = DataGrid1.Text
If DataGrid1.Col = 0 Then
Adodc2.RecordSource = "select * from Invoice2 where Invoice_NO= " & DataGrid1.Columns(0).Text & " "
' 写代码更改数据源,内容是Invoice2表里所有数据,条件为nvoice2.Invoice_NO字段的值要与单击DataGrid1的当前行的第一个字段的值相符。
Adodc2.Refresh
End If
Next i
End Sub
但总报错"标准表达式中的数据类型不匹配",请您看看,是不是我的SQL语句的
" & DataGrid1.Columns(0).Text & " 这部份没写好。 作者:
Nothing 时间: 2008-4-1 22:35
Adodc2.RecordSource = "select * from Invoice2 where Invoice_NO='" & DataGrid1.Columns(0).Text & "'"