Private Sub Command9_Click()
Dim str1 As String
Dim strvalue As String
Me.code.SetFocus
strvalue = Me.code.Value '这句值等于空,没有取得code的值,不知道如何搞定
str1 = Text1.Value + "\" + strvalue + ".jpg" ‘如果上句取得了code的值的话,这句应该可以用的
Text2.Value = str1 ’Text2我设置了超级链接属性,可是点击超级练级为什么手工填一个存在的文件夹也打开不了?还有那个遍历的怎么做实在太难了
End Sub