输入过后的内容保存到数据库,第二次再输入时,填充到显式容器中!比如DataGrid或者ListView! 比如取出的记录集为Rec_Temp ListView1.View = lvwReport Do Until Rec_Temp.EOF Set NewItem = ListView1.ListItems.add(Text:=Trim(Rec_Temp.Fields("字段1"))) If Len(Rec_Temp.Fields("字段2")) >= 1 Then NewItem.SubItems(1) = Trim(Rec_Temp.Fields("字段2")) End If Rec_Temp.MoveNext Loop
我想要的结果是就像我们第二次登陆自己的 csdn 是出现的效果 嘿嘿 谢谢!
对了 二楼的大哥 能给我说说 Set NewItem = ListView1.ListItems.add(Text:=Trim(Rec_Temp.Fields("字1"))) If Len(Rec_Temp.Fields("字段2")) >= 1 Then NewItem.SubItems(1) = Trim(Rec_Temp.Fields("字段2")) 这两句的意思吗,看的蒙胧啊,呵呵,谢谢大哥! newitem 源自何处啊? .add(Text:=Trim(Rec_Temp.Fields("字1")))还有这一点,以及if 语句 谢大哥拉
比如取出的记录集为Rec_Temp
ListView1.View = lvwReport
Do Until Rec_Temp.EOF
Set NewItem = ListView1.ListItems.add(Text:=Trim(Rec_Temp.Fields("字段1")))
If Len(Rec_Temp.Fields("字段2")) >= 1 Then
NewItem.SubItems(1) = Trim(Rec_Temp.Fields("字段2"))
End If
Rec_Temp.MoveNext
Loop
嘿嘿
谢谢!
二楼的大哥
能给我说说 Set NewItem = ListView1.ListItems.add(Text:=Trim(Rec_Temp.Fields("字1")))
If Len(Rec_Temp.Fields("字段2")) >= 1 Then
NewItem.SubItems(1) = Trim(Rec_Temp.Fields("字段2"))
这两句的意思吗,看的蒙胧啊,呵呵,谢谢大哥!
newitem 源自何处啊? .add(Text:=Trim(Rec_Temp.Fields("字1")))还有这一点,以及if 语句
谢大哥拉
下次打开时先从文件中根据输入的内容模糊查找取出数据添加到listbox中供选择可以达到效果
然后每次输入的时候将前面已经输入的内容作为查询项目到数据库中查找(使用通配符进行模糊查询,* ? LIKE)