ÈçºÎ½«notesÊý¾Ýµ¼Èëms accessÊý¾Ý¿â£¿

ÈçºÎ½«notesÊý¾Ýµ¼Èëms accessÊý¾Ý¿â£¿

---

¿´ÏÂÖ÷Òª´úÂ룬ÀÏÊÇÌí¼Ó²»½øÈ¥¡£

Dim msName As String
msName = ws.Prompt( PROMPT_OKCANCELEDIT, "ÊäÈë","ÇëÊäÈëÒªµ¼ÈëMS AccessµÄÃû³Æ£º" )

Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("MS Access Database")
qry.SQL = "SELECT * from " & msName
result.Execute

key = Ubound(vSelect)

Dim count As Integer
count = 0

xLastNum = 2
For j = 0 To key
Set dc = view.getalldocumentsByKey(vSelect(j),True)
For i = 1 To dc.count
Set tmpdoc = dc.GetNthDocument(i)

result.AddRow()
Call result.SetValue("Ä£¿éºÅ", tmpdoc.ModuleNo(0))

Call result.SetValue("Ä£¿éÃû³Æ", tmpdoc.Module(0))

Call result.SetValue("¼þºÅ", tmpdoc.ItemNumber(0))

Call result.SetValue("ÃèÊö", tmpdoc.Description(0))

Call result.SetValue("ÊýÁ¿", tmpdoc.Qty(0))

Call result.SetValue("¼Û¸ñ", tmpdoc.Price1(0))

Call result.SetValue("µ¥Î»", tmpdoc.Unit(0))

Call result.SetValue("ºÏͬºÅ", tmpdoc.HTH(0))

Call result.SetValue("Åú´Î",tmpdoc.PC(0))

Call result.SetValue("ÈÕÆÚ", tmpdoc.Date(0))

Call result.SetValue("Level",tmp