vb代码求助！ - VB / 基础类
Private Sub Command1_Click()
Set cn = New ADODB.Connection
cn.Open "provider=Microsoft.jet.OLEDB.4.0;data source=" & App.Path & "\member.mdb"
Set rs = New ADODB.Recordset
rs.Open "select * from queryattendance1 where 到寝室日期时间 between #" & DTPicker1.Value & "# and #" & DTPicker2.Value & "# ", cn, adOpenKeyset, adLockOptimistic
If rs.RecordCount = 0 Then
MsgBox "没有符合条件的查询", vbExclamation, "提示"
Else
For i = 1 To rs.RecordCount
Set Fliv = ListView1.ListItems.Add()
Fliv.Text = rs.Fields("学号")
Fliv.SubItems(1) = rs.Fields("姓名")
rs.MoveNext
Next i
End If
End Sub
点击一次后，再点击一次listview控件显示两次数据 重复了...
怎么使点击n次 都只显示一次数据
...我咋没想到...我试试去
简单有效...就是想不起来...谢了
相关问答：
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
dim a as string,b as string，c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串，而不存在c字符串
看看i ......
问题：
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
A 3
A 4
B 6
... ......
