请问如何将datagrid1中选的若干条记录（不一定是相邻的）追加到其一个表table2中??

2004-11-04 11:24:17 174 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

easyui datagrid 展开行记录展示自定义内容项目需求，度娘找到一些参考文档，主要参考于https://www.cnblogs.com/jianyeLee/p/5658566.html 我这里datagrid展开行记录的扩展内容是一个table，内容相对固定，所以设置了全局变量。并且希望页面加载的时候，就将全局变量加载完成。 1：JS页面上需要引用，detailview js， &lt;!-- 引入EasyUI new--&gt... 阅读详情

问题如题,不如用selbookmarks集合行不行,该如何操作,谢谢

...全文

第二次 PX4仿真环境搭建过程全记录参考链接 https://blog.csdn.net/yanwumuxi/article/details/80097294 https://www.ncnynl.com/archives/201709/2013.html 一、安装依赖项我们使用Debian / Ubuntu LTS 作为Linux的标准支持版本，但是也支持Cent OS 和 Arch Linux的发行版本。权限设置警告：永远... 阅读详情

badboy168

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

sgh321 2004-11-04

打赏
举报

msgrid 选择若干记录的方法：
Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
cellstart = MSHFlexGrid1.Row
End Sub

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
cellstop = MSHFlexGrid1.RowSel
Call sel_boyong
End Sub
Sub sel_boyong()
Dim i, j

For j = cellstart To cellstop
MSHFlexGrid1.Row = j
If MSHFlexGrid1.CellBackColor = RGB(255, 200, 255) Then
For i = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellBackColor = RGB(255, 255, 255)
Next
Else
For i = 0 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellBackColor = RGB(255, 200, 255)
Next
End If
Next

End Sub

of123 2004-11-04

打赏
举报

可以呀，你在 DataGrid 绑定的表中添加一个 Boolean 型字段 Selected。每选中一条记录将其设置为 True：

"Insert Into table2 Select field1, field2, .... From tabel1 Where Selected"
"Update tabel1 Set Selected = False"

daisy8675 2004-11-04

打赏
举报

Option Explicit

Public Rs As New ADODB.Recordset
Public adoRs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Dim i As Integer
Dim j As Integer

Public Sub Make_Connection()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\TEST!\People.mdb;Persist Security Info=False"

Conn.CursorLocation = adUseClient
Conn.Open strConn

End Sub

Private Sub DataGrid1_DblClick()

On Error Resume Next

adoRs.AddNew

adoRs(0) = Me.DataGrid1.Columns(0).Text
adoRs(1) = Me.DataGrid1.Columns(1).Text
adoRs(2) = Me.DataGrid1.Columns(2).Text

adoRs.Update

End Sub

Private Sub Form_Load()
Call Make_Connection

If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from Man", Conn, adOpenStatic, adLockOptimistic

Set Me.DataGrid1.DataSource = Rs

Call Make_Connection2

End Sub

Public Sub Make_Connection2()

For i = 0 To 2
adoRs.Fields.Append "n * " & i + 1, adVariant, , adFldMayBeNull + adFldIsNullable + adFldUpdatable
Next i

adoRs.Open

Set Me.DataGrid2.DataSource = adoRs

End Sub
'

请问如何将datagrid1中选的若干条记录（不一定是相邻的）追加到其一个表table2中??

相关推荐