VB这个改成一条那样循环要快一点吧

            MSF1.AddItem (i)
            MSF1.Row = MSF1.Rows - 1
            MSF1.TextMatrix(MSF1.Row, 0) = "" & Format(rts.Fields("日期").Value, "yyyy-mm-dd")
            MSF1.TextMatrix(MSF1.Row, 1) = "" & rts.Fields("流水号")
            MSF1.TextMatrix(MSF1.Row, 2) = "" & rts.Fields("药品名称")
            MSF1.TextMatrix(MSF1.Row, 3) = "" & rts.Fields("规格")
            MSF1.TextMatrix(MSF1.Row, 4) = "" & rts.Fields("单位")
            MSF1.TextMatrix(MSF1.Row, 5) = "" & rts.Fields("单价")
            MSF1.TextMatrix(MSF1.Row, 6) = "" & rts.Fields("数量")
            MSF1.TextMatrix(MSF1.Row, 7) = "" & rts.Fields("金额")
            MSF1.TextMatrix(MSF1.Row, 8) = "" & rts.Fields("折扣")
           
            rts.MoveNext

如果字段是挨个排下来的 直接用

for i=0 to 8

msf1.textmatrix(msf1.row,i)="" & rts.fields(i)

next就行

如果不是 那就弄个临时数组让它排 上

dim strtmp as string

dim strsplit() as string

strtmp="日期，流水号，药品名称，规格，。。。。。"

strsplit=split(strtmp,",",-1)

再循环

for i=0 to 8

msf1.textmatrix(msf1.row,i)="" & rts.fields(strsplit(i))

next