过于i18n
http://localhost:8866/struts2_3200_BBS2009_08_I18N/admin/Login-input
tomcat路径不能有空格
http://www.cnblogs.com/maxblog/archive/2010/05/13/1734847.html
plsql8注册码
下面是我新生成
新生成的plsql的注册码适用于plsql8的使用
product code:jtlhlj6flzrwd4dnwwpju2y8za89vb8r8yehxa32qvfv
serial number:2049878599
password:xs374ca
product code:4vj6rhs6wf5c844tfcpqqqzg5uprd29pax5tz4ln75
serial number:368600710
password:xs374ca
product code:khleqwl9ksfrghw9eh7ffwcn7fndjzt9sbsyw556
serial number:53696408
password:xs374ca
select t.*, t.rowid from test2 t
insert into test2 values('www');
update test2
set AAA='WWWEEE'
where aaa like '%PCCB%'
Sub ImportBtn_Click()
'选择多个文件
Dim l As Long
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True '单选择
.Filters.Clear '清除文件过滤器
.Filters.Add "Excel Files", "*.xlsx;*.xlw"
.Filters.Add "All Files", "*.*" '设置两个文件过滤器
.Show
'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。
For l = 1 To .SelectedItems.Count
' MsgBox "您选择的文件是:" & .SelectedItems(l), vbOKOnly + vbInformation, "智能Excel"
MsgBox .SelectedItems(l)
Next
End With
End Sub
Rem 选择文件夹
Sub SelectFolder()
'选择单一文件
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。
MsgBox "您选择的文件夹是:" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
End If
End With
End Sub
Sub btn1()
Dim wshpath As String
wshpath = "'" & ThisWorkbook.Path & "\[源数据.xls]销售数据'!"
With Sheet2.Range("A1:E20") '激活当前工作表A1:E20区域
.FormulaR1C1 = "=" & wshpath & "RC" '在A1:E20区域写入对其它工作表单元格引用
.Value = .Value '将该区域的公式转换为数值
End With
End Sub
东芝M600-01B(魅瞳黑)参数
重要参数屏幕尺寸:14英寸 1366x768
CPU型号:Intel 酷睿i5 450M
CPU主频:2.4GHz
内存容量:2GB DDR3 1066MHz
硬盘容量:320GB 5400转
显卡芯片:NVIDIA GeForce G 310M
操作系统:Windows 7 Home Basic(家庭普通...
摄像头:集成摄像头
光驱类型:DVD刻录机 支持DVD SuperMulti...
无线网卡:支持802.11b/g/n无线协议
笔记本重量:2.4Kg
有线网卡:100Mbps网卡
http://localhost:8866/struts2_3200_BBS2009_08_I18N/admin/Login-input
tomcat路径不能有空格
http://www.cnblogs.com/maxblog/archive/2010/05/13/1734847.html
plsql8注册码
下面是我新生成
新生成的plsql的注册码适用于plsql8的使用
product code:jtlhlj6flzrwd4dnwwpju2y8za89vb8r8yehxa32qvfv
serial number:2049878599
password:xs374ca
product code:4vj6rhs6wf5c844tfcpqqqzg5uprd29pax5tz4ln75
serial number:368600710
password:xs374ca
product code:khleqwl9ksfrghw9eh7ffwcn7fndjzt9sbsyw556
serial number:53696408
password:xs374ca
select t.*, t.rowid from test2 t
insert into test2 values('www');
update test2
set AAA='WWWEEE'
where aaa like '%PCCB%'
Sub ImportBtn_Click()
'选择多个文件
Dim l As Long
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True '单选择
.Filters.Clear '清除文件过滤器
.Filters.Add "Excel Files", "*.xlsx;*.xlw"
.Filters.Add "All Files", "*.*" '设置两个文件过滤器
.Show
'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。
For l = 1 To .SelectedItems.Count
' MsgBox "您选择的文件是:" & .SelectedItems(l), vbOKOnly + vbInformation, "智能Excel"
MsgBox .SelectedItems(l)
Next
End With
End Sub
Rem 选择文件夹
Sub SelectFolder()
'选择单一文件
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。
MsgBox "您选择的文件夹是:" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
End If
End With
End Sub
Sub btn1()
Dim wshpath As String
wshpath = "'" & ThisWorkbook.Path & "\[源数据.xls]销售数据'!"
With Sheet2.Range("A1:E20") '激活当前工作表A1:E20区域
.FormulaR1C1 = "=" & wshpath & "RC" '在A1:E20区域写入对其它工作表单元格引用
.Value = .Value '将该区域的公式转换为数值
End With
End Sub
东芝M600-01B(魅瞳黑)参数
重要参数屏幕尺寸:14英寸 1366x768
CPU型号:Intel 酷睿i5 450M
CPU主频:2.4GHz
内存容量:2GB DDR3 1066MHz
硬盘容量:320GB 5400转
显卡芯片:NVIDIA GeForce G 310M
操作系统:Windows 7 Home Basic(家庭普通...
摄像头:集成摄像头
光驱类型:DVD刻录机 支持DVD SuperMulti...
无线网卡:支持802.11b/g/n无线协议
笔记本重量:2.4Kg
有线网卡:100Mbps网卡