50分!怎么点击指定DATAGRID中的一行,就可以删除掉!关键字段只有access自动产生的"流水号"
Private Sub Command3_Click()
On Error Resume Next
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim path As String
Dim connstr As String
path = App.path & "\jxcun.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Persist Security Info=False"
db.ConnectionString = connstr
db.Open
rs.CursorLocation = adUseClient
rs.Open "delete jin where 流水号='" & i & "'", db, adOpenStatic, adLockReadOnly 《〈〈这样删除不掉!
End Sub
Private Sub DataGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X > 0 And Y > 0 Then
DataGrid1.Row = DataGrid1.RowContaining(Y)
Text1.Text = DataGrid1.Columns(1).Text
Text2.Text = DataGrid1.Columns(2).Text
Text3.Text = DataGrid1.Columns(3).Text
Text4.Text = DataGrid1.Columns(4).Text
Text5.Text = DataGrid1.Columns(5).Text
i = Val(DataGrid1.Columns(0).Text)
End If
End Sub
还有个问题就是点击DATAGRID最左端和最上端的字段名出现行号无效错误该如何解决!
谢谢!