listview求助

2008-10-11 10:38:47 151 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

告别玄学调参：手把手教你用20元件模型搞定GaN HEMT高频仿真（附S参数提取避坑指南）本文详细介绍了如何使用20元件模型优化GaN HEMT高频仿真，解决传统16元件模型在10GHz以上频段的误差问题。通过S参数提取避坑指南和实战案例，帮助工程师精准建模分布式电极效应和寄生反馈路径，提升射频电路设计效率。阅读详情

我新建了一个listview控件名为LV1
现在求源码==>>在lv1中添加4列，分别为：序号，时间，日期，备注
并且添加两行内容，分别为：1，00:00:00，2008-01-01，(无)
2，00:00:01，2008-01-01，(无)

哪位大虾帮忙写源码~~~，小弟感谢啊！！
总体效果：
序号时间日期备注
1 00:00:00 2008-01-01 (无)
2 00:00:01 2008-01-01 (无)

...全文

【语音识别算法】深度学习语音识别算法与传统语音识别算法的区别、对比及联系深度学习语音识别算法与传统语音识别算法在理论基础、实现方式、性能表现等方面存在显著区别，同时也有一些联系。下面将从几个方面详细比较这两种方法，并给出应用实例和代码示例。阅读详情

zhaizhaoxuan

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

SYSSZ 2008-10-11

打赏
举报

Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "序号"
ListView1.ColumnHeaders.Add , , "时间"
ListView1.ColumnHeaders.Add , , "日期"
ListView1.ColumnHeaders.Add , , "备注"
ListView1.View = lvwReport
Set x = ListView1.ListItems.Add(, , "1")
Set x = ListView1.ListItems.Add(, , "2")

Set x = ListView1.ListItems(1).ListSubItems.Add(, , "00:00:00")
Set x = ListView1.ListItems(1).ListSubItems.Add(, , "2008-01-01")
Set x = ListView1.ListItems(1).ListSubItems.Add(, , "(无)")
Set x = ListView1.ListItems(2).ListSubItems.Add(, , "00:00:01")
Set x = ListView1.ListItems(2).ListSubItems.Add(, , "2008-01-01")
Set x = ListView1.ListItems(2).ListSubItems.Add(, , "(无)")
End Sub

fvflove 2008-10-11

打赏
举报

Option Explicit



Private Sub Form_Load()



LV1.ColumnHeaders.Add , , "序号"

LV1.ColumnHeaders.Add , , "时间"

LV1.ColumnHeaders.Add , , "日期"

LV1.ColumnHeaders.Add , , "备注"



Dim itm As ListItem



Set itm = LV1.ListItems.Add(, , 1)

itm.SubItems(1) = "00:00:00"

itm.SubItems(2) = "2008-01-01"

itm.SubItems(3) = "(无)"



Set itm = LV1.ListItems.Add(, , 2)

itm.SubItems(1) = "00:00:01"

itm.SubItems(2) = "2008-01-01"

itm.SubItems(3) = "(无)"



LV1.View = lvwReport

LV1.FullRowSelect = True



End Sub

LCAAA 2008-10-11

打赏
举报

Private Sub cmdOK_Click()
Dim snp1 As New ADODB.Recordset
If ListPxdw.ListIndex >= 0 Then
Screen.MousePointer = 11
'项目
sqlstr = "SELECT id AS 序号, xm AS 姓名 , sfzh AS 身份证号 ,dw AS 单位, zz AS 住址 ,bmrq AS 入学日期, ksrq as 考试日期,cylb as 从业类别 , zkzh as 准考证号,jx_cypxcj.rq as 考试日期,jx_cypxcj.ll as 理论,jx_cypxcj.aq as 安全检查,jx_cypxcj.cz as 操作技能,jx_cypxcj.bkrq as 补考日期,jx_cypxcj.bll as 理论补考,jx_cypxcj.baq as 安检补考,jx_cypxcj.bcz as 操作补考"
sqlstr = sqlstr & " FROM jx_cypxda INNER JOIN jx_cypxcj ON jx_cypxda.id = jx_cypxcj.xyid"
sqlstr = sqlstr & " where jx_cypxda.bmkh=1 and jx_cypxda.jxid = " & ListPxdw.ItemData(ListPxdw.ListIndex)
If Check1 = 0 Then
sqlstr = sqlstr & " AND jx_cypxda.pxqc = '" & Listqc & "' and jx_cypxda.zgzshbs <> 1"
Else '上期学员在本期补考录入成绩后bk=1
sqlstr = sqlstr & " AND jx_cypxda.pxqc = '" & Val(Listqc) - 1 & "' and jx_cypxda.zgzshbs <> 1 and jx_cypxcj.bk=1"
End If
snp1.Open sqlstr, cn
Call ListRefreshView(ListView1, L, snp1)
snp1.Close
chkrows = 0
LblXycount = "选择:" & chkrows & "/" & L
Screen.MousePointer = 0
ListView1.ColumnHeaders.Item(1).Width = 1000
ListView1.ColumnHeaders.Item(2).Width = 800
ListView1.ColumnHeaders.Item(3).Width = 1600
ListView1.ColumnHeaders.Item(4).Width = 1800
End If
End Sub

Sub ListRefreshView(ListView1 As ListView, Lcount As Long, snp As ADODB.Recordset)
Dim i As Long
Dim ListviewVisible As Boolean
Dim str As String
Dim clmX As ColumnHeader
Dim itmX As ListItem
Dim ListVisibleMark As Boolean
PublicEscDown = False
Screen.MousePointer = 11
'保持原有显示状态
ListVisibleMark = ListView1.Visible
'打开记录集
On Error GoTo errinfo
ListView1.ListItems.Clear
'锁定不刷新
ListView1.Visible = False
'LockWindowUpdate ListView1.hwnd'这里的锁定..不如用visible =false 后快....
With ListView1.ColumnHeaders
.Clear
For i = 0 To snp.Fields.Count - 1
Set clmX = .Add(, , snp.Fields(i).Name, Printer.TextWidth(snp.Fields(i).Name) + 200)
clmX.Tag = snp.Fields(i).Type
Next i
If Not clmX.Index = 1 Then
clmX.Alignment = lvwColumnLeft
End If
End With
With ListView1
Do While Not snp.EOF()
Set itmX = .ListItems.Add(, , "" & snp.Fields(0))
For i = 1 To snp.Fields.Count - 1
itmX.SubItems(i) = CStr("" & snp.Fields(i))
Next
snp.MoveNext
DoEvents
If PublicEscDown Then
Exit Do
End If
Loop
'记录个数
Lcount = .ListItems.Count

End With
'LockWindowUpdate 0&
'保持原有显示状态
ListView1.Visible = True 'ListVisibleMark
Screen.MousePointer = 0
Exit Sub
errinfo:
'ShowError
End Sub

listview求助

相关推荐