求助：

[desert185]

1、如何做一个系统日志，把所有 访问系统或系统发生的变化、出错情况都记录下来？

2、如何用excal向系统里导入信息免去手输的麻烦

3、如何让系统自定义编号，按照一定的格式

[desert185]

大哥太笼统了，看不懂

[射天狼]

I 服了 Y~~

[doudou8090]

我跟楼上有同感

[desert185]

呵呵，我现在对VB连菜鸟都不如呢，各位大虾全当作给小学生讲好了

[射天狼]

1、自己写日志文件，在第一步操作都把所做的操作都写到文件里就行了。
2、在“工程/引用里”添加对EXCEL的引用，然后你到EXCEL里录制宏，这些宏都可以直接写到vb里，或者查查对EXCEL操作的帮助！
3、可以按“日期+流水号”
例：

'取得表的主键
Public Function GetID(ls_Table) As String
On Error GoTo Errhandle
Dim ls_ID As String, rs As New ADODB.Recordset

ls_ID = Format$(Now, "YYYYMMDD")
If rs.State = adStateOpen Then rs.Close
rs.Open "select max(ID) from " & ls_Table & " where ID like '" & ls_ID & "%'", cn, adOpenForwardOnly, adLockReadOnly

If IsNull(rs.Fields(0).Value) Then
ls_ID = ls_ID & "0001"
Else
ls_ID = rs.Fields(0).Value + 1
End If

GetID = ls_ID
rs.Close
Set rs = Nothing

Exit Function
Errhandle:
If rs.State = adStateOpen Then rs.Close
Set rs = Nothing
MsgBox Err.Description
End Function